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INTRODUCTION 


A good computer program starts with one original idea, which 
is nurtured and allowed to grow in its own good time. 


From the moment the first keys are pressed on the Dragon 
32, to the time when the final program starts to roll off the 
printer, programmers often find they are undergoing a pro- 
cess of discovery. So it was with this book. Many times, the 
authors found the computer was bringing its own influence to 
bear, helping to shape programs into their final form. In many 
cases, they found the Dragon appeared to have as much to 
do with the creative process as the programmers did, as the 
screen format and extensive colour and sound facilities 
demanded to be used to the full. 


Robert Young, Roger Bush and Robert Shrimpton did not 
hurry this book. They wanted the programs to unfold, so they 
would be a true reflection of the capabilities of the Dragon 32. 
The extensive range of programs in this book suggests they 
approached the task in the right way. You're sure to have as 
much fun running and developing the games in this book as 
the two Roberts and Roger did when writing them. 


Tim Hartnell, 
Editor, 
London, March 1983 


Author of THE PERSONAL COMPUTER GUIDE, THE 2X 
SPECTRUM EXPLORED and 49 EXPLOSIVE 
GAMES FOR THE 2X8 


ADVENTURE: 


MAGIC CASTLE 
DIAMOND JIM 
NUCLEAR SUBMARINE 
SNARK ATTACK 
TREASURE HUNT 
TUNNEL TREK 


MAGIC CASTLE 


When this game begins you are standing on the doorstep of a 
magic castle. This castle is the home of an evil wizard who 
has cast a spell over the surrounding countryside. You must 
enter the castle and kill the wizard to end the spel. The 
wizard is very powertul and has protected himself with a 
bodyguard of goblins. 


The castle has no doors, but being a magic castie it will let 
you into certain rooms if you shout the number of the room 
you wish to go to. The magic will transport you from outside 
the castle into one of the rooms. When you get there you will 
be told which rooms you can move to. You will also be told if 
the wizard or his goblins are nearby. 


Some rooms are magic rooms and when you arrive in them 
they will move you off somewhere else. 


To fight the wizard you are carrying a magic bow and three 
arrows. You can’t be in the same room as the wizard and live, 
So YOU must Use a Magic bow to fire an arrow through the wall 
to hit the wizard. 


When you are in a room and you have been warned that the 
wizard is nearby, you may choose to shoot the arrow into one 
ofthe available rooms. To do sa enter the number of the room 
preceded by a minus sign. For example —32. 


You only have three arrows, so use them wisely. However 


you may be lucky and find other arrows as you wander 
around the castk. 
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ie 
20 
3B 
4@ 
56 
6@ 
7 
8e 
S17) 
1@@ 
118 
12@ 
130 
140 
15@ 
16@ 
17@ 
18@ 
198 
or 
208 
218 
228 
238 
* 
248 
258 
268 
276 
28@ 
29@ 
3ee 
310 


REM MAGIC CASTLE 
GOSUB 368 
CLS 
DIMAl3@) 
DIMBC3@) 
G=3 
FOR ¢=6 TO 36 
ACe 1=6 
NEXT 2 
FOR #=6 TO 16 
A=RNO (36) 
JF ACAI=l1 THEN 118 
ACAJ=] 
BCZ)sA+ 11 
NEXT 2 
PRINT@ 16, “MAGIC HERE 
FOR C=1 TO 1@@@.NEXT C 
*=16+2kRNDC16) 
PRINT@ 32, "YOU ARE BEING SENT TO RO 
my 
FOR Q@=1] TO 16@6:NEXT QO 
T=? 
CLS 
PRINT@ $8, “YOU ARE NOW IN ROOM x 


A=-1 

FOR 226 TO 15 

IF BC2}=K THEN AFINTLES) 

NEXT 2 

IF A=@ THEN 166 

IF A=] THEN CLS ELSE GOTO 358 

FOR DO=1 TO 586 -NEXT 

PRINT@ 197, "THERE ARE GOBLINS HERE” 
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326 FOR DO=[ TO SO6:NEAT 

336 PRINT TABC6s “THEY HAVE KILLEO YOU" 
348 GOTO 776 

358 IF A=2 AND RNOCZ}=2 THEN PRINT "vou 
found the wizard" :FOR DD=1 TO 1@68:NEXT: 
GOTO 696 

366 IF A=3 AND RNDC2) =2 THEN PRINT "YOU 
HAVE FOUND AN ARRON" :G=Gr]l 

376 IF A>G@ THEN 916 

386 PRINT@ 129; “YOU CAN MOVE TO:" ;x-1;" 
K" Xe] UK" K+ 

396 FOR 2=6 TO 2 

496 ACZ) = 

416 NEXT 2 

426 FOR 2=6 TO 16 

436 O=B(2Z)~-% 

446 IF ABS£DI=1 OR D=Y THEN ACINTC275)3= 


45@ NEXT 2 

466 D-ABSLO) 

474 IF D=2 OR B¥6 OR D=8 THEN ACZI=1 

484 IF ACO@J =i THEN PRINT TABC6)"+++ MAGI 
C NEARBY +++" 

49@ IF AC1]=1 THEN PRINT TAB(6) "kkk GOS 
LINS NEARBY xxx" 

386 IF ACZ)]=1 THEN PRINT JABCS) "K+xk WIZ 
ARD NEARBY *+x" 

218 A=2 

326 PRINT "WHICH ROGM DO YOU WISH TO ENT 
BR 3 

536 INPUT M 

2946 CLS 
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rhe] 2) 
266 
372 


FOR OD=:t FO 5BB.NEXT 
IF M<@ THEN 616 
IF A < 1 OR M > 45 THEN PRINT *CANNO 


T MOVE THERE" “GOTO 538 


388 
rae | 4) 
686 
616 
626 
636 
6468 
636 
666 
676 
BBB 
638 
7BB 
7168 
7223 
738 
246 
738 


xen 

Y=-Y 

GOTO 226 

IF RNOC16}>6 TREN 636 

IF M= -BC:@) THEN 866 

G=G-] 

PRINT@ 234, YOU MISSEO" 
PRINT TABC?? Gs ARROWS LEFT" 
FOR DD=1 [0 S86 -NEAT 

CLS 

IF G2B THEN 238 

CLS RNDC8) 

X=RNDC4) 

(F &=1 THEN Y#="TOAL* 

IF X=2 THEN ¥¢="TREE" 

JF &~3 THEN f#="RABBIT" 

[IF X=4 THEN Y$="WORM" 

PRINT@ 1932, TABC3) “YOU HAYE BEEN TU 


RNED INTO A 


768 
770 
78 
7258 
8BB 
8128 
826 
838 
848 
858 


PRINT TABC 14174 

FOR DD=1 TO 6 

FOR SS=206 TG '96 STEP 20 
SOUND SS; | 

NEXT 

FOK SS=126 TO 1 STEP --20 
SOUND SS;i 

NEXT 

NEXT 

END 
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860 IF Av“2 AND RNDC2)=2 GOTO 368 

8/78 CLS RMDC8) 

888 FOR DL=!} TO iBAB -NEKT 

898 PRINT@® 192; TABC4) “TOU HAVE KILLED 
THE WIZARD" 

3828 GOTO 772 

91@ FOR [3D=l TO 1008 -=NEXT 

928 CLS RND(83 

3938 PRINT@ 192, TABL4}) "YOU HAYVE NO ARRO 
WS LEFT" 

948 FOR OD=1 FO 3B -NEXT 

958 GOTO 7772p 

360 FOR JJ=1 TO 5 

978 CLS RNDC8) 

368 PRINT@ 192, TABCS) ‘x*x* MAGIC CASTL 
BE kKKK 

998 FOR SS=208 TO 228 STEP 5 

1888 SOUND SS; ]:NEXT 

1818 PRINT@ 192; TABCS) ' XK KKKKKKAKK KK 
ORK 

1820 FOR SS=222 TO 2a@2 STEP -2 

1838 SOUND SS, 1:NEXT 

{848 NEAT JJ 

1858 RETURN 
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DIAMOND JIM 


Diamond Jim is searching through the tunnels of an ancient 
temple looking for a fabulous, long-lost diamond of enorm- 
ous size. 


All he has with him to help him in the hunt is a strange 
invention called a ‘diamond detector’. This sensitive instru- 
ment can detect the presence of a large diamond and point 
the way toward it. Unfortunately the read-out of the diamond 
detector takes a bit of practice to interpret. 


Each time the game is run the maze of tunnels inside the 
temple will be different and the diamond will be hidden in a 
different location. You will be given a brief look at a map of the 
maze at the beginning of the game. 


The computer will display the move number, the diamond 
detector's readout and the moving instructions onthe screen. 
It will also tell you what lies in the four directions it is possible 
to travel. For example:- NOR TH: WALL 

SOUTH: CPEN 

EAST: OPEN 

WEST: WALL 


You may then enter the direction you wishto travel. You may 
also ask the computer for help if you get lost. The computer 
will then show you the map of the maze again. Asking for help 
will cost you a penalty of 15 moves! 


Lines 370 to 460 print the maze on the screen. Diamond Jim 


is shown as an asterisk. Lines 280 to 320 act on your input 
and move you around the array set up in lines 470 to 640, 
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18 REM DIAMOND JIN 
26 CLS 

34 GOSUB 978 

44 GOSUB 478 

34 GOSUB 378 

6@ M=n+!] 


76 CLS:PRINT TABC2); MOVE NUMBER® 54 


S@ PRINT “NORTH: ; 


3@ IF ACD+1,E)=S THEN PRINT 


168 [F ACD+1,E)=* THEN 
116 PRINT “SOUTH: 

126 [F ACD-1,E3=S THEN 
136 IF ACD-)],E1=* SHEN 
144 PRINT “EAST: 

138 [F AED, E+t1)]=S THEN 
168 [F ACD, E+1)=xX THEN 
174 PRINT "UEST- ‘ 
148 [Ff ACB, £-1)<S THEN 
134 [F ACD,E-!]=xX THEN 


PRINT 


PRINT 
PRINT 


PRINT 
PR INT 


PRINT 
PRINT 


" OPEN" 
“WALL 


*OPEN" 
"WALL" 


"OPEN" 
“WALL” 


“GPEN" 
"WALL " 


268 PRINT "DIAMOND INDICATOR" :PRINT 
6))*° READS" ;) 464 (ABS(2-D)+ABSLY-EJ3+7-E 


218 PRINT "DIRECTION?" 


TABC 


2286 PRINT *“C(NIORTH:SSIQUTH:CEJAST:FWIEST 


FHIECR® 
238 [NPUT A#-iF Ag=" * 


JHENZ3G@ 
THEN 230 


248 [F A#="N" AND ACD+1,£)=x 
258 [F A¢="S" AN ACD-1;E3=% 
268 IF A€="“E" AND AID,E+11=% 


278 IF A¢=“we AND ACD;E-1)=xX 


280 JF A¢="H* THEN GOSUE 378 
294 [F A¢="N* THEN D=Dti 


308 IF AS="S* THEN D=D- 


1 


31@ IF Ag="E" THEN E-E+1 
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THEN 230 


THEN2 34 


THEN 230 


32@ iF At="W" THEN E=E-1] 

33@ JF 2=D AND YT=E THEN 358 

34@ GOTO 68 

35@ FOR OD=] TO 156@:NEXT 

364 GOTO 258 

276 CLS 

38@ FOR B=15 TO ) STEP-1-FOR C=! TO 15 
398 [F ACB,CJ=X THEN PRINT TABC6) CHRO] 
1.35 

4@@ [F B=0 AND C=E THEN PRINT “&“ 3:GOTO 
428 

41@ I[F ACB,CJ=S THEN PRINT CHR#0 175) 3 
42@ NEXT*PRINT :NEXT 

436 M=Mt+1S 

44@ FOR J=I TO 26@G-NEXT J 

45@ CLS:ACD,EIJ=5 

46@ RETURN 

47@ DIMAC1S, 153 

466 B=I[NT CRNOC @)43 3+1 

490 4=14:Y=14 

3946 iF B=2 THEN Y=2 

916 IF S=3 THEN 2=2 

S24 X=1:5=2 

S36 FOR B=! TO 15:FOR C=! TO 15 

34@ ACB,CJ=K: IF RNDC@)> .°S THEN ACB,CI=S 
S3@ JF C<2 OR C514 OR BL2 OR BP14 THEN A 
(B,C)=x 

S6@ NEXT :NEXT 

37@ D=2:E=2 

566 FOR F=1 TO 68: 

59@ READ B:READ C 

6846 ACB,CI=S 

61@ NEXT 
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628 
63a 
648 
658 
66a 
678 
fea 
B 

63948 
18 
708 
112 
71@ 
re as 
724 


734 


24a 
23a 
768 
77 
784 
238 
Baa 
81a 
B24 
83a 
84a 
85a 
BEA 
B74 
Bea 


H=- 15 
SOUND 248, 1 


2:2 
DATA 3; 2 
DATA 7,3; 
DATA 3,9 


DATA 10,3,11:3,12;3,4333,19,3:34,2,7 


DATA 6:16,5,)0,4,16,3;:30, 2; 16,2,)1;2 


DATA 2,13,2,14,6,11:6,12,6,13,6,14,7 


DATA 14.212;3, 12.8; 19,5;,12,5, 13,5, 14, 
14, 12 
DATA 11,9.11,1@6,11,11,11,123;12,9, 133; 
3,13, 18 
DATA 33,11,13,12, 13,13,13,14,14-514 


CLS:FOR CC=1 TO 25@ STEP 14 


SOUND CC, 1 

NEAT 

FOR CC=-1@ TO 220 STEP 
SOUND CC. ,1 

NEAT 

FOR CC=4@ TO 18@ STEP 
SOUND CC, 1 

NEXT 


FOR CC=#160 TO 2@ STEP - 


SOUND CC, 1 
NEXT 


FOR CC=246 TO 20 STEP - 


SOUND CC, 1 
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14 


14 


B9G@ NEXT 

9@@ FOR CC=258 TO 1 STEP —-1@ 

914 SOUND CC;) 

92@ NEAT 

93@ CLS RNDCS) 

944 PRINT@ 192, TABC6) "*ee YOU FOUND IT 
eK" 

956 PRINT TABC6} “TOU TOOK "jmj*" MOVES" 
36@ END 

974 PCLS 

98@ PNODE G@;1 

99@ SCREEN 1,1 

1406 LINE (124,8)-CI2,64);FSET 

1414 LINE C12, 84)--€126;)694);PSET 

1426 LINE (128, 1643-(232;643;PSET 

J636 LINE C232; 64)-C12@;6);PSET 

149@ PAINT (€1286:92),5,5 

1456 FOR DD=i TO 1@@@:NEAT 

1466 CLS RND[B) 

1478 CC=a@ 

J@B6@ PRINT@ 192, TABC4) "“KAKAKHKKAKAAKKE 

eA KEK" 

1498 SOUND 284; ) 

116@ FOR OD=) TO 2AS5:NEXT 

1116 PRINT@ 192, TABC4) “x#4ee ODOLTAMOND J 
IM keaK" 

112@ SOUND 15@, 1 

1)3@ CC=CC+1 

1144 FOR OD=1]1 TO 208 -:NEAT 

J)5@ IF CC=1@ THEN RETURN 

11646 GOTO 1886 
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NUCLEAR SUBMARINE 


You are the captain of a nuclear submarine on patrol in the 
Atlantic Ocean. Somewhere in the waters around you is an 
enemy submarine. Youmust find it and use yourtorpedoes to 
put it out of action. You must get close to the enemy for your 
torpedoes to be effective, but do not get too close. An under- 
water collision between two nuclear submarines could pro- 
duce a spectacular explosion. 


a 
=p 





Firing your torpedoes or being hit by the enemy submarine 
uses up your fuel supply. You only have a limited amount 
available, so use it carefully. 


The game ends when you run out of fuel, or when either your 
submarine or the enemy one is sunk. 
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Your computer will tell you the co-ordinates of your position, 
and the approximate position of the enemy submarine. You 
will receive constantly updated reports of your position, your 
energy level and you'll be told when your fuel is running low, 
and when you are under attack. 


The GOSUB in line 20 controls the sound and graphics at the 
Start of the game. The GOSUB inline 40 sets up the variables 
in the game. The GOSUB in line 50 triggers the print-out 
containing your status on each turn. 


Line 750 checks to see if you have collided with the enemy 
submarine. Lines 770 to 840 check your position in relation to 
the enemy's position, and provides information about his 
location. (To demonstrate just how much fun it can be to 
continue to work on a program long after it appears to be 
completed, we took NUCLEAR SUBMARINE and twisted it 
almost out of recognition, to produce the program SNARK 
ATTACK, which follows NUCLEAR SUBMARINE.) 


1@ REM NUCLEAR SUBMARINE 

24 GOSUB 19800 

34 CLS 

46 GOSUB 866 

08 GOSUB 678 

64 IF L<@ THEN 470 

76 PRINT "WHAT IS YOUR ORDER; CAPTAIN" 
8@ L=L-@.25 

J@ PRINT “N,S;E;W,7CORPEDO},F CORWARDI" -P 
RINT"BCACKI” ; 

1928 INPUT 2$ 

118 IF 2g%="J" GOSUB 3186 

126 I1F 2$="N" JREN X=K-1 

130 IF 2#="S" THENX=<%¢ 1 
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144 
15a 
164 
17a 
134 
134 
244 
214 
224 
236 


256 
264 
27 
280 
“23> 
294 
34a 
314 
-£)> 
324 
AlN" 
33a 
344 
354 
364 
374 
324 
394 
44a 
41¢ 
424 
434 


[F @¢="E" THEN Y=Y+1 

[F #¢="W" THEN Y=Y-] 

[F 2é="F° THEN 2-2-1 

IF 2%="B" THEN 2=2+] 
GOSUB 568 

A=A+ CRNDOCS3-- 1I-CRNDC3I-13 
JF AML OR ADIG THEN 136 
B=B+LRNDC3I-1)-“RNDC33-1) 
1F B<i OR &>)B THEN 216 
C=C+CRNDOC3)I-1I- CRNOCSI-1 3 


[F Cel OR C14 THEN 214 

GOTO 54 

L#=L-@./5 

JF ABSCA- XI33 OR ABSCB-YI>3 OR ABSCL 
3 THEN PRINT “OUT OF RANGE #44" 

FOR J=1 TO 1@a@ 

NEAT J 

[F ABSCA-XIJ>3 OR ABSCB-YI>3 OR ABSLC 
3 THEN RETURN 

PRINT “ORDER TO FIRE UNDERSTOOD CAPT 


FOR J=l1 TO !@@G 
NEXT J 
JF RNDOCGI3G. 7 THENIGG 
PRINT “3393>missed” 
FOR J--1 TO 14a@¢@ 
NEXT J 
GOTO 424 
PRINT 'Y9U DID IT; SIR" 
T=Ttl 
RE TURN 
CLS:PRINTB 17G,"end of Some" 
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444 1]F 7]=@ THEN PRINT@ !96, vou stayed 
under toa isons" 

454 [F &£5@ THEN PRINT TAB(S] “you have b 
een deteated" 

464 JF i=@ THEN PRINT@ 232, “al! energy 
used“ 

47@ ENO 

48@ PRINT “vou Aave coiiided with the™ 
495@ PRINT “eremy simmer ine" 

5@@ END 

5S1@ JF ABS(R-K1IS3 OR ABSCB-Y]93 OR ABSCE 
-2323 THEN RETJIRI 

3?7@ IF RNDC@I9G.25 THEN RETURN 

534 PRINT “waerningx*Xenemy is firing at 
us" 

544 FOR J-] To |laaa 

55@ NEXT J 

56@ JF RNOC@IOG.7 THEN 644 

570 PRINT “the enemy has tit us, sit” 
58@ i=L-?7 

59@ 1F L_<@ THEN47a 

644 FGR J-l TO 1@aa 

61@ WEXT J 

624 RETURN 

630 PRINT ‘tne onemy missed' 

644 FOR J.-1 TO 14@@@ 

65@ NEXT .J 

664 RETURN 

67@ CLS 

®8@ PRINT “ENERGT REMAINING: 3.3“ ERGS" 
69@ Tl=Tf-1 

7@@ 1F TI-@ THEN 424 

21@ PRINT “TINE . ° 3TI 
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720 IF 1¢3 THEN PRINT “ENERGY LEVEL [5 L 
ol 

73@ PRINT *“SALCT +: ‘iT 

740 FRINT "YOU ARE AT "3%3", “35%. "GZ 
756 Jt A=K AND B=T AND CF THEN 486 

764 FRINT@192, “THE ENEMY 15 "3 

778 IFAQ® OR BOT TEN PRINT “YO THE-- 


J 
28G IF ACK THEN PRINT “NORTH® j 
798 JF ADA TREN PRINT “SOUTH"; 
846 JF B>Y THEN PRINT ‘EAST": 
8)@ 1F BST THENPRINT "WEST" 5 
828 IF C=2 THEN PR]NT@224,° OF YOU" 
830 IF C>2 THEN PRINT@224, BEHIND YOU" 
840 JF C<z TREN PRINT@224; IN FRONT OF 
TOU" 
858 RETURN 


866 OjJN 24C(1} 

878 L=25+RNO( 30) 
884 T= 

898 T)]=35 

9886 A=RNGC1G) 

316 G=RNGC10) 

328 C=RND(183 

338 X=RND(1G) 

946 Y=RNO{(10) 

958 2=RNDC1G) 

36@ RETURN 

1968 CC=8 

1@)@ CLS@ 

1426 SS=RNOC25) +200 
i838 TT=RND(2) 

1446 SOUND SS, TT -CC:-CC+1 
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1@52 
1@6a 
1a7@ 
1aea 
1@9@ 
11a@ 
1114 
1126 
11364 
114 
115@ 
)16@ 
4176 
1164 


[F CC=i@ GOTO )@7e@ 

GOTO j)a2a 

PCLS 

PHODE 3,1 

SCREEN 1,4 

PAINT (@,3),2 

PAINT £6,2),1! 

PAINT (€;4],4 

PAINT (€4,@);,3 

CLS RNOCB) 

FOR SS=154a TO 25@ STEP 5 
SOUND $5, ] 

NEAT SS 

PRINT@® 132, TAB(4) “##* NUCLEAR Sus 


MARINE ##¢ 


1194 
1204 
{214 
1220 
1234 


FOR T=10G@ TO 3 STEP -5S 
SS=RNOC25 J+ 158 

SOUNO S5;i 

FOR OD=) TO T:NEXT -iNEXT 

FOR CC=] 38 1Q6@@:NEXT CC:RETURN 
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SNARK ATTACK 


This program poses a daunting task. As a SCUBA diver you 
must enter the depths of the Pacific Ocean and hunt the 
fierce Great White Snark. This very rare creature is a native 
to the waters and coastline of Australia. The Snark is the 
result of an highly unlikely mating between a white pointer 


| 
rE 





shark and the Australian tiger snake. This chance encounter 
has resulted in a ferocious creature which is at home bothon 
the land andin the ocean. However it rarely ventures far from 
the water. 


With the aid of your computer you can hunt the Snark in its 
favourite lurking place, the ocean’s deeps. 
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The computer will keep track of your oxygen supply, the 
amount of time you have spent underwater and it will provide 
you with clues to the hideout of the Snark. 


Lines 990 to 1060 run the simple cartoon at the start of the 
game. Lines 150 to 210 uses your input (Z$) to move you 
around the ocean. Line 890 gives your oxygen for the startof 
the game, while lines 120, 310 and 600 decreases your 
oxygen supply, Line 100testsLto see if youhave any oxygen 
remaining, and lines 920 to 970 determine the starting posi- 
tions for both the Snark and yourself. 


1 REM SNARK ATTACK 

20 GOSUB 330 

32 CLSC3) 

42 PRINTB 192, TABCE) "*#xX SNARK ATTACK 
xHK 

328 FOR DD=] TG 26 

68 SOUND RNOCSQ)+1]75,1 

7Q NEXT DOD 

80 GOSUB 880 

30 GOSUB 638 

106 1F L<@ THEN 468 

L1Q@ PRINT"WHICH OIRECTJON" 
120 LeL-@. 25 

13@ PRINT "N,S,E,W,GCSPEARGUN),FCORWARD) 
"SPRINT" BCALCK)” ; 

14@ INPLT 2% 

138 «IF 2¢="G" GOSUB 310 
16@ IF 2$="N" THEN X=X-1 
17Q IF 2$="S" THENX=K+] 
180 IF 2$="E" THEN Y=Yel 
190 JF #$="W' THEN Y=Y-1 
200 IF 2$="F" THEN 2=2-1 
210 IF 2$="B" THEN 2=2+1 
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228 
2238 
248 
258 
268 
278 
298 
3 BB 
318 
328 


GOSUB 542 
AsA+CRNDC3)-] J-CRNDC3)-1) 

IF &¢1 OR A218 THEN 2230 
B=B+CRNDC3)-) J-LRNOCZI-1) 

IF B41] OR B>1@ THEN 250 

C=C+ CRNDC3)-1)-CLRNBUBI- 13 

IF C<) OR C218 THEN 250 

GOTO 90 

L=L-. 75 

IF ABSCA-XJ>3 OR ABSCB-Y}>3 OR ABSIC 


-@)>3 THEN PRINT TABCGH) "“*ke% TOO FAR AWA 
Y RAE" 


338 
348 
358 


FOR J=1 TO 1868 
NEAT J 
IF ABSCA-X)>3 OR ABSIB-Y1>3 OR ABS(C 


-2323 THEN RETURN 


368 


PRINT"SPEARGUN ":21F RND(3)> ITHEN PR 


INT“ FIREO" ELSE PRINT’MISSFIRED" :GOTO416 


3278 FOR J=] 70 1688 

38B NEXT J 

398 JF RNOCBI>B. 2 THEN448 

488 PRINT “ddd >>missed" 

4)B FOR J=1 370 1688 

428 NEXT J 

438 GOTO 468 

448 GOTO 11186 

458 T+Tt+]) 

468 RETURN 

478 CLS :PRINT@2B2,"end of game" 
438 IF L>@ THEN PRINT@1235,"you have been 
eaten" 
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494 
ed“ 
pe) a 
218 


IF L=€@ THEN PRINT@S3Z7, “all oxygen us 


GOTO | 1a@ 
CUS:PRINT@ 192, TABC2Z] “you have co] 


lided with the” 


920 PRINT@® 224, TABL2) “snark and vou ha 
ve become its tunch” 

924 GOTO 11084 

240 [F ABSCA-XI>3 OR ABSCB-YIJ93 OR ABSIC 


-2]23 THEN RETURN 


208 
368 
ing 
2 

278 
288 
294 
6a 
61a 
62a 
62328 
64a 
658 
66a 
67a 
62a 
69a 
78a 
718 
228 
7 38 
748 
Oiled?” 


IF RND{I@I>@.75 THEN RETURN 
PRINT “warning*k*the snark is attack 
you" : SOUND 23@. 1 :SOUNDZ4@, 1:SOUNDZ5a, 


FOR J=l To 14a@ 

NEXT J 

IF RNOCB@I>OG. 7 THEN 658 
L=L-15 

IF L¢<@ THENG 7Q 

FOR J=] TO )@a6 

NEXT J 

RETURN 

PRINT “the snark missed" 
FOR J=]1 TO 1@a@a 

NEXT J 

RE TURN 

CLS 

PRINT “ORYGEN REMAINING: "3h 
T]=71-1 

IF TIl=@ THEN 4624 

PRINT “TIME : "3iT] 


[F L<3 THEN PRINT "OXYGEN LEVEL [5 L 
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754 PRINT "DEAD SNARKS :"33 

760 PRINT "TOU ARE AT “:83"*, *GTG%s 
77a [F A-X AND B=Y ANG C= THEN 568 
78@ PRINT@1S2," THE SNARK IS "; 

2798 |JFAM>X OR B<>Y THEN PRINT "3O THE: 


“ jz 


844 IF ACK THEN PRINT “NORTH® 5 

S1@ JF A>X THEN PRINT “SOUTH™; 

8206 IF A>Y THEN PRINT "EAST"; 

836 IF 8<Y THENPRINT "WEST" 3 

846 IF C=? THEN PRINT@224," OF YOL" 

854 IF C>2 THEN PRINT@224," BEHINO YOU" 
866 JF Cf? THEN PRINT@224," JN FRONT OF 
you" 

87@ RETURN 

888 DIR 2¢€1) 

894 L=25+ INTCRNO{GI 438) 

348 7-8 

31@ T]=35 

$24 A=RNB‘ 16) 

93@ B=RNOC14) 

94@ C=RNOCIGI 

95@ *=RNDC1 G4) 

96@ Y=RNDC1@) 

97@ 2=RNDC1@) 

98@ RETLRN 

S38: ClCS6 

1486 FOR X=1 TO 63:FOR Y=23 TO 31 

10@1@ SETCR, 7:3) 

1626 NEXT Y:NEXT & 

1436 FOR CC=@ TO 62 STEP 2 

1444 SETCOCC, 24,51: SOUND 2,2:FOR OO=] TO 
SINEXT?2SOUND !,2-SETCCC, 24, 6) 
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1456 NEKT Cf. 

1666 RETURN 

1676 CC=68 

1666 SS=RND( 541+10@-SGUNGSS, } 

14696 CC=CC+] :([FCO-26THKENENDEL SE GOFO) 6G 
1166 PLAYT"O2; 350 ;CsuBsC yr Bi CrESOjsB;C505 
913 8;923.3503;915;65C3"-ENB 

1116 CLS RNG(BI 

1126 PRINT@ 192, “YOU HAVE KJLLEOQ THE GR 
EAT WHITE! 

J13@ PRINT@ 224, TABLI2) "“SNARK* 

1146 FOR T=1 1G 19 

$156 CLS RNDCE) 

1166 FOR O=44T YO 4xT+16 STEP 2:SGUND 3G, 
t :NEXT 

}1?6 PRINT@® 192, “OU HAVE KILLED THE GR 
EAT WHITE” 

1166 PRINT@® 224, TABL]2) "SNARK" 

1196 FOR G=228 TO 236 STEP F:SOUND @,1: 
NEAT NEAT 

1266 END 
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TREASURE HUNT 


In a dark cave systern, deep underground, a fortune in gold 
can be foundit you are brave enough fo hunt for it. Yourmust 
be carefulnot to fallintopools of quicksand orbump into one 
of the strange creatures which live in the caves. 


You have 25 minutes of ‘game time’ in which to wander 
around and obtain as much wealth as possible. The garne 
ends when this time runs out, or even sooner if you don't 
avoid the monsters and quicksand. 


At various times during the garne the computer will provide 
you with a quick look at a map of the cave systern. Your 
position will be marked with a letter H. A$ shows the location 
of the treasures. Quicksand is marked with a Q and the letter 
M can eithermean a monsteror a magic cave. A dot indicates 
an open space. 


You begin your search tn cave number 55, The computer will 
then ask you which direction you wish to move. Enter N for 
north, S for south and so on. The cornputer will also give you 
Very brief advice about hazards or other features may be 
nearby. However, it won’t tell you how close, or in which 
direction from you they are located. 


The random number generator in line 880 gives you a two tn 
three chance of being shown the cave map each turn. The 
plan is printed by lines 890 to 920. Z$ inline 250 is your input 
direction, Lines 300 to 370 acton this input and move you in 
the requested direction and then check to see what is lurking 
at your new location. The subroutine from lines 950 to 1020 
provides the graphics at the stait of the garne. 
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1@ REM TREMSURE HUNT 

26 GOSUB 359 

3G XM Xt=' 

44 GT RNOGC1IG)}+2 

54 TLS ENDCB} 

66 PRINT@ 352, TABiS] ‘H4n TREASURE HUNT 
Hit H 

76 DINAC 100). -G68 -U=8 :b=8:AR=6 

86 FOR B=) T0 340-4. BI=46 

36 IF B<i2 OR 8-98 Ge JBRINTCB/iGJ=B OR 
IGxXINT(Bz’1@)-@-. THEN ACBI=i66 

186 NEXT 

J)4 FOR B-l TC S-RESTORE-*OR D=]1 TO 5 
126 2=|NTCRNOCe AYE 54)2:i1F ACZI=)]66 THEN 
126 

136 READ C-ACZ If: 

146 NEST -NE xT 

158 OATAI65,218;77,9:3 5,2 

166 FOR B=) TO B-REALD PLB+2NEXT :DATA~-J:, 
-)6,;-9,-],1,3, 18,1] 

176 £55 

186 ALEIJ=72 

136 CiL$-u0SUB 88a 

268 B=!INTCRNOCBIA2) 

2)6 IF @6 AN? E<> 35 GOSUB BBB 

220 PRINT@S53; “CAVE" 5E 

238 JF GP THEN PRINT@363,G6; “GOLD: 

248 GOSUE 61a 

258 GOSUBBB# :SGUNOZ AG, 1 :“KINT@498, 3: INPU 
T“DIRECTION “; 2% -ti=9 

268 PRINT#41fi, Xt 
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276 IF 2$*"N" AND ACE-16)5=166 OR zs="S* 

AND ACE+!GI=156 OR f4-"£" AND ACE+1)=166 
THEN U=3 

266 [F 2$="P AND ACE-1)=166 THEN PRINT@ 
384, "blocked tcave*sFOR T=1 TOG 2@68:NEXT: 

6070 2568 

296 A{EIJ=46-]F Zs="N" THEN E=E-)6 

306 [F 24="S” THEN E=E+18 

316 [F 2¢="E“ THEN E=Erl 

326 [F 2¢="J* THEN E=E-] 

336 [F 2%$="F“ GUSUB 736 

346 [F ALEJ=218 GOSUB 466 

358 [F ALE3=?2? GOSUB 446 

366 IF ACEJ=%1 SOSLs 3:6 

376 JF ALEs “36 vUSUA 578 

398 Het] tif HeeaT JHEN SSH 

336 GOTH Pw 

4H@ FIMGNT (ors) Br 

Qja ALE I=448 

470 E=INTURRO MeL eter 2G: ACeI=166 THEN 
424 

438 RETURN 

446 CLS-SOUND 16,5-PRINT@1G, “monster here 


458 FOR T=!) TO 1] @@0-:NEXRT 

466 M=RNDCBI-1F M¢.2 THEN PRINT" [T IS R 
UNNING AWAT «RETURN 

470 PRINT “IT HAS SEEN YOU...” 

486 FOR T=] TO 10Q0:NERT 

49@ ]FM>.85 THEN PRINT "AND FLEES":FOR T 
-] TG 999-NEXT -RE TURN 

3968 PRINT "ANO EATS FOULS? "= SOUND2ZG, 40:F 
OR T=1 TO 399QsNEXT -G=39-CLS-:GOTO 858 
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514 CLS:FOR J=!1 TO 2@:PRINT TABCS&*))3'HO 
RRORS...'j 

$24 PRINT “qicksaad" -SOUND!L@@—,;) 

S20 FOR T=1 TO 144d :NERTTANEXTS 

$4@ SOUND2@,4@4:FOR T=) TO1G@G:NEXT:CLS 
$5@ G@=9 

56@ GOTO 85a 

57@ CLS:FOR J=] TO 2@: PRINT TABES#))3°% 
WEALTHE 9x" :SOLND2@G@+),1:FOR T=1 TO 14k): 
MERT NEXT >CLS 

584 K=JNTCRNDC@)*10@) +184 

594 PRINT@23@, "YOU HAVE FOUND GOLD” 

6G@ PRINT@294, "WORTH €* 5K 3° 9299" 3G=G4+K:5 
OUNO1@@G,3:FOR T=1 TO 240@-NEXT: GOSUBS88@: 
RETURN 

610 Y=] 

624 L=ACE+PC YI) 

634 IF _<>46 THEN 66a 

6440 [F Y<8 THEN Y=Y+1]1:GOTO 634 

65@ [F L=46 THEN RETURN 

664 PRINT@416, “NEARBY IS5...°; 

674 [F L=166 TREN PRINT‘NO PATH" 

68@ {F t=218 THEN PRINT "NAGIC' 

694 JF t=72 THEN PRINT “MONSTER™ 

74@ IF L=81 THEN PRINT ‘QUICKSAND" 

71@ JF L=36 THEN PRINT “GOLD” 

22@ FOR T= | TO 3084 -NEXT -RETURN 

23@ AR-AR-1:1£ AR=@G@ THEN PRINT “NO ARROW 
S LEFT" :RETURN 

74@ PRINT@386,AR3“ ARROWS LEFT" :SS=@ 

73@ PRINT@448, ,°TNPUT “WHICH DIRECTION": 
$#:cLls 
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POO iF SS NY ANDO ACE 103-77? THEN SS=):T 
THE-10 

PP@ JF St="S" ANDO ACE +!OI)=?2? THEN SS=):7 
TE +1 

780 JF S#='"E" AND ALE+1)- 277? THENSS=)1 :YT = 
E+? 

?92 JF SS=@ THEN PRINT "NOTHING THERE" :G 
oT O84e 

BOO PRINT *#xk* 4 BELT KKK" 

810 FOR T- 1 TO 999-NEXT [F RNOCG1IJ>.3 TH 
EN 8392 

820 PRINT “#99 MONSTER JIS DEAD 4K" -ACTT 
1-46 -G*G+INTERWOLOI1#1900)-:GOTO 848 

830 PRINT "THE MONSIER !'S WOUNDED" 

840 FOR f-1 TO 3@@G NEXT “SE TURN 

850 IF Q=9 GOTO 876 

8B CLS-SOUNDS@, |[S-PRINTS *kk TOU HAVE Rt 
M OUT OF AIR «ak&" :-- ORW= 170) 000 :NERT 

BPO PRINT ‘YOU “SURUJVEO FOR “41; MINUTE 
a ANO FOUND 4° 562’ BF GOLO” -FORC=200T 
SIS@STEP--5-SOUNDC, : -NEXT ‘END 

#80 ACEI=/2-iF RNO(3)-] THENS4O 

890 PRINT@Q@,‘ + .FOR J=i TO 100 

922 PRINT TA8€11) CHRELACII); 

910 JF JORINT(CI71@)*-J THEN PRINT 

920 NEXT:IF @=9 THEN END 

9390 WA=RNDC5@) -FOR OG =) TOWA NEXT 

949 PRINTOO, XK$. FOROO=5TGC10 -PRINTXX#:NE 
*TOO:RE TURN 

9452 CLS@ 

962 FOR CC=:i TO 200 

970 K=RNDC 2011 20-7" RNOL?0)+12 

980 C#RNOCS) 
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390 SETCX,Y,;C) 


1000 NEXT CC 
1610 FOR DDB 
1820 RETURN 


1 TO 2@:SQUND 225,1:NEXT OD 








A © 





Li 
ms 
ai 
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TUNNEL TREK 


Now we come to Tunnel Trek, a game which almost defies 
description. Most adventure-type games are based on logic, 
and are cleverly planned, with many challenges for the 
player. Tunnel Trek ismothing like that. Itis more of an ordeal 
than an adventure. 


Lines 290 to 570 print the instructions on the screen, decide 
what is attacking you and with what. They also give you a 
choice of defensive weapons. The random number 
generator in lines 580 to 610 decide whether or not you have 
defeated the attacker. Lines 600 fo 610 direct the program to 
the appropriate PRINT routine according to the result of the 
random number generator. 


The variable W keeps track of where you are in the cave 
system, Sis the amount of money you have and X counts the 
number of fights you have been in. 


The question which now remains unanswered is: Do you 
have the nerve and the courage to tackle Tunnel Trek? 


1@ REM TUNNEL TREK 

24 CLS 

3@ PRINTB 198, “AAARTUNNEL TREKAAKAKY 

46 GOSUB 124@:-CLS 

24 *=6:S30:W=] 

64 PRINT@ 64, ‘YOU ARE AT THE START OF A 
SYSTEM OF TUNNELS AND CAVES. frOU HAVE 
THIRTY PIECES OF GOLD 

?@ PRINT® i192, “bHEN YOU REACH THE END O 
F- THE TUNNELS YOU MUST HAVE AT LEAST 
THENTY PIECES OF GOLD TO PAY THE TOLL CO 
LLEC TOR" 
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6@ PRINT@ 362, ° PRESS ENTER” 
39@ [NPUT As 


16@ 
11@ 
12@ 
138 
14@ 
15@ 
168 
178 
18@ 
198 
28@ 
21@ 
22@ 
236 
244 
258 
268 
276 
28@ 
298 
=" 

30G 
41@ 
328 
338 
348 
358 
36 
37@ 
388 
39 


IF Ag=" * GOTO 8@ 

GOSUB 316 

JF Wl THEN W=RNOCBI 

PRINT "THES [5S A TUNNEL MAZE” 
PRINT 

IF wW=?18 THEN 37@ 

PRINT “TRIS [5 CAVE NUMBER® 3 
PRINT 

PRINT “CAVE NO 1@ [5S THE EX]T" 
PRINT 

X=X+ ] 

PRINT “THIS [5 CHALLENGE NUMBER” 3x 
JF S427 THEN S93 

PRINT 

PRINT “YOL: HAVE * 385*°GOLO PIECES* 
GOSUB 1248 

GOSUB 314 

PRINT 

K=INTC44RNOCGIJI+2 

PRINT ' YOU ARE NOW FACING* ;* 3 “TUNNEL 


PRINT “WHICH ONE WJLL YOU TRY?” 
INPUT A 

GOSUB 318 

JF RNOCG@I< .1 THEN 630 

JF AGK THEN 366 

[IF A=K THEN 634 

K=RNDC4] 

IF K=1 THEN ES--"GIANT RAT" 

[F K=2 THEN E¢="WEREWOLF" 

[F K=3 THEN ES=*TROLL" 


40 


44a 
414 
420 
43a 
44¢ 
450 
4640 
674 
484 
494 
344 
514 
520 
530 
54a 
55a 
564 
578 
58a 
394 
faa 
614 
62a 
63a 
64a 
65a 
68a 
67a 
62a 
694 
7a@ 
71@ 


[F K=4 THEN ES-"20MBIE* 

PRINT "THE TUNNEL IS BLOCKED BY A®* 
E--RNOC4 1 

[F E=l THEN FS="P0iSONED SPEAR" 

[IF E=2 THEN FS*#"FiANING SWORO" 

[F E=3 THEN FS-“8GW AND ARROW" 

IF E=4 THEN FS="CROSSBOW™ 

PRINT E$;° ARMEO WITH* 

PRINT "A “3F% 


PRINT 

PRINT "MHICI WEAPON DO YOU CHOOSE?" 
PRINT 

PRINT “A POINTED STICKC1I" 
PRINT 

PRINT “BARE HANOSE 2)" 
PRINT 

PRINT “A SMALI ROCKS) 
[NPLT B 

C=INTCS4RNOTGII+1 

GOSUB 314 


IF B=C THEN GOSUB 1494 
IF B<>C THENGOSLB 1160 

GOTO aa 

K=INT C4xRND(Q))+1 

ON K GOSUB 67@, 72@, 774, 82a 

GOTO 3a 

PRINT 

PRINT "YOU HAVE FALLEN THROUGH" 
PRINT " A TRAPOOOR" 

WW } 

S=S- INT (2*RND(@2)-1 

RETURN 
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224 PRINT “A FLOOD WASHES YOU DOWN" 

738 PRINT * A&A SIDE TUNNEL” 

748 Was] 

738 S=5-INTC2ZKRNDCGI)-] 

768 RETURN 

77@ PRINT “TOL HAVE BEEN HELPED BY" 

786 PRINT * A PASSING GNOME" 

798 S=S* INTCS&RNDCBI) +1 

868 W=tJ+]NTC3&RNOCG I+) 

@)@ RETURN 

@2@ PRINT "WHOOPPEE?22 A HOSRD OF" 

830 PRINT " GOLO, CROOSE UP TO 5 PIECES" 
84@ PRINT "BUT BE CAREFUL; THE MORE" 
858 PRINT " YOil TAKE, THE MORE IT WILL" 
868 PRINT “ COST YOU, HOW MANY TO TAKE?" 
874 INPUT D 

686 [F D435 THEN #78 

@96 S=S*O:W=W-INTCOs2) 

944 RETURN 

914 CLS 

92@ FOR [=) 70 5 

934 PRINT 

94¢@ NEXT 

954 RETURN 

96@ IF W<o1@ THEN RETURN 

S7eUPRINT STO ARE - AT. THE. Bald" 

98@ PRINT “OO TO) HAVE ENOUGH GOLD?" 
994 PRINT “PRESS ENTER TO FIND QUT’ 
1686 [NPUT C#:CLS 

1618 IF $<2@ THEN PRINT “THE GUARD HAS K 
TLLED TOU" :ELSE GOTO 1898 

1426 PRINT *YOU COULD NOT PAY THE TOLL“ 
1436 [F S¢t26 GOTO 1488 
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1848 
14358 
1G68 
TING" 
1878 
1488 
14368 
T 
1188 
1118 
1128 
1138 
1148 
1458 
1168 
1178 
1188 
1138 
>" 
1208 
1218 
1226 
1236 
1246 


PRINT “YES YOU CAN PAY THE TOLL“ 


PRINT “YOU HAVE WON THE GAME" 

PRINT © AND YOU MAY KEEP THE REMAIN 
PRINT S;°~GOLO PIECES* 

END 

PRINT “YOU HAVE FOUGRT YOUR WAT PAS 
THF "GE¢ 

S=S+tINTCS3&RNOCBI) +) 

PRINT “ANO HAVE"$S;*GOLO PIECES" 
WeW+ INTC 3*RNOCGI J+) 

PRINT 

PRINT “YOU ARE APPROACHING CAVE" iW 
RETURN 

PRINT “THE *j£¢j;" BEAT YOU ANO" 
S=S-INTC4*RNOCHI)~| 

IF S<@ THEN S-@ 

PRINT "LEFT YOU WI1H* j$j"GOLO PIECE 
W=RNOCS 2 

IF W<1 THEN W=l 

PRINT "ANO SENT YOU TO" 34 

RETLRN 

FOR M=1 TO 2@G0:NEXT =CLS:RETURN 
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OUT IN THE ARCADE: 
ONE ARMED BANDIT 
TWENTY ONE 

TEN PIN BOWLING 
ROULETTE 

TEE OFF 
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ONE ARMED BANDIT 


This program allows you to play the dreaded one armed 
bandit. At the beginning of the game, you'll be given 20 
computer dollars to gamble with. Unfortunately computer 
dollars can only be spent inside a computer. The computer 
will then invite you play by pressing the enter key. Each time 
you play you put a dollar into the one armed bandit. 


The computer then spins the three coloured squares. Three 
ofakind pays out $5, and, one of each also pays out $5. Any 
other combination means you lose your money. The game 
ends when you either win more than $50 in total and break 
the bank, or when you lose all your computer dollars and are 
bankrupt. 


Lines 130to 180 choose the colours to be spun. Lines 610 to 
690 produce the spinning efect. Variable M keeps track of 
your money. Liné 390 checks to see if you have broken the 
bank and line 400 checks if you are bankrupt. 


1@ REN ONE ARMED BANDIT 

28 CLS 

3@ GOSUB 1130 

40 CLS-PRIN{@ 728, “YOUR STAKE IS #20" 
S@ PRINT@ 138, “THREE OF A KIND PAYS $5" 
6@ PRINT@ 196, “ONE OF EACH PAYS $5” 

?@ FOR DD=1 TO 150@:NEXT 

B@ CLS RNDC8) 

92 PRINT@ 192, TABC2Z) “## PRESS ENTER T 
O PLAY #H"; 

10@ INPUT A 
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i18 
128 
138 
148 
158 
168 
178 
186 
198 
288 
218 
228 
238 
248 
258 
268 
278 
280 
238 
348 
318 
328 
338 
348 
358 
368 
378 
386 
338 
408 
416 
420 
430 


CLS 

M=28 

A= 

B=8 

C=8 

FOR D=) TO 3 

E=RND( 3) 

ON E GOTO 196,298,296 
A=A+) 

FORX=158TO0153 

GOSUB618 

NEXT 

GOTO 338 

B=B+) 

FORX=158TO153 

GOSUB6I1B 

NEXTR 

GOTO 338 

c=C+ 1 

FOR X= 15@TO1S9 

GOSUB61B 

NE XE 

NEXT D 

SOUND RNDC2G)+158; 3 

IF A=3 OR B=3 OR C=3 THEN 528 
IF A=) AND B=! AND C=) THEN 578 
M=nN-} 

PRINT@® 198, “YOU LOST THAT TIME" 
IF 11949 THEN 738 

IF i1¢)] THEN 358 

PRINT® 265, “STAKE: 3" 3M 
IF M¢) OR M549 THEN STOP 
PRINT 
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448 
ae 
45a 
468 


470 
480 


49a 
5aa 
314 
52a 
538 
344 
55a 
36a 
57a 
58a 
53a 
6aa 
61a 
62a 
62a 
64a 
65a 
66a 
670 
68a 
aga 
78a 
714 


FRINT@G 323, "PRESS ENTER FOR NEXT SF 


INPUT AS 
PRINT@ 32, " 


PRINT@ 192, " 


PRINT@ 224, ° 


SQUNG 125,] 

FOR G=)] 10 5aa 

NEXT & 

GOTO 130 

FRINT@ 4@, "THREE OF A KINO" 


PRINT@ 20]. “TOU WIN #5” 
M=fitS 

GOTO 339¢ 

PRINT@ 282, “ONE OF EACH" 


PRINT@ 235; “WIN 25* 
={t 5 

GOTO 39a 

FORJ=) TOS 

ON —€ GOSUB 7@@,7)2, 72% 

H=K+tK 

PRINT GC98+) +5*0),CHRSCK) 
PRINT#@C1] 3G4J4+5%0), ClRS0XK) 
PRINT@C 1624+J+5%0),CHRSCXK) 
K=K-K 

NEXT 3 

RETURN 

K=@:RE TURN 

K=48°RE TURN 
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228 
738 
748 
238 
768 
77@ 
78 
2398 


K=64 :RETURN 

FOR XX=] TO 1M@@:NEXT 

CLS RNDC8) 

FOR S$S=#10 TO 250 STEP 16 

SOUND SS; 2-NEXT 

FOR SS=29@ TO 14 STEP -1@ 

SOUND 35; 2:NEXT 

PRINT@ 192, *### YOU HAVE BROKEN THE 


BANK $$$" 


888 
B1a@ 
82a 
BR 
8448 
358 
86a 
B78 
888 
394 
388 
316 
328 
93a 
346 
954 
368 
974 
388 
9948 


c= 

FOR SS=28@ JO 254 STEP 10 
SOUND SS5,1-NERT 

FOR $S=24@ TO 19a STEP -)@ 
SOUNO 35,1 :NEXT 

C=C+l 

IF C=6 THEN 88a 

GOTO 6)6 

CLS RNDC8) 

A=RNDC3OQ) +15 

Y=RND0151+8 

C-+RNDCB J 

SET(X, 750) 

SOUND 225, 1 

GOTO 89@ 

CLS RND(8) 

FOR T=] 10 15 

FOR SS=14 TO 1 STEP -2 
SOUND $$, 1 

FOR GD) TO TxH2 =NEXT 


]@@@ NEXT -NEXT 

1626 FOR OD=) TO 20:NEXT 
Ja@26 CC=a 

1438 SQUND 5, 1 
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1940 
1950 
196d 
#" 

107¢ 
1GBO 
1930 
11490 
4" 

11140 
}]29 
1) 3¢ 
1)4¢ 
€£$" 
}15¢ 
118 
11?@ 
1189 


SOUND 1,3 


FOR DO=) TO 25:NEAT 

PRINTB 192, TABQ?) "#HHHAHHHAHHHHHH 
SOUNO 5;3 

FOR OO=)] TQ 25 :NEXT 

CC=Cle } 

PRINT@ 192, TABL?) "#84 BANKRUPT #8 


IF €C=16@ THEN ENG 


GOTO 1446 

FOR J=} TO 16 

PRINT TABC4] "$$$ ONE ARMED BANDIT 
SOUND 75,2 

NEXT J 

FOR DD=) TO 26@:NEXT 

RETURN 
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TWENTY-ONE 


This program plays a dice versionofthe card game Twenty- 
one. 


The object of the game is to roll the dice until the total is either 
21, or as close to it as you dare to go. Rolling more than 21 
causes you to lose. 


After you've had your turn at rolling the dice, the computer 
takes its turn. Yourtl find the computer plays this game quite 
well and will win more than fifty percent of the game, unless 
you are very careful. 


When the program is run the computer will ask you to enter “1 
to roll, 2to stand, 3 to end”. Enter “1” to roll the dice as many 
tiimes as you wish. When your totalis ascloseto 21 as youre 
prepared to go, enter “2". This gives the computer its turn. 
When you are tired of playing enter “3” to end the game. 


The GOSUB in line 20 runs the expanding circle at the start of 
the game. Line 60 gives you your choice of moves and waits 
for your input. Line 100 increments H (set at Zero in line 40} 
with your dice roi! Line 120 prints the result on the screen. 


If you go over 21, line 130 ends the program to the routine 
beginning at tine 390. This tells you that you've gone bust. 
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After you’ve had your turn at rolling the dice, the computer 
takes its turn. You'll find the computer plays this game quite 
well and will win more than fifty percent of the games, unless 
you are very careful. 


14 
28 
34 
4a 
34 
6a 
4) 


REM TWENTY ONE 

GOSUB 66a 

PRINT ' © 

FOR C=) TO B:FOR DO=i TO 14 
Ccs...\Ce 

NEXT OD:SOUND 2@@,1:NEXT CC 
CLSC4) 


84 PRINT@ J92, TABC9) “H#**HS TWENTY ONE 
HAAARH 
34 FOR GD=1 TO 5@@+*NEXT 


i@a 
114 
124 
134 
TO 
144 
150 
164 
17 
184 
134 
24a 
214 
220 
230 
24a 
-2) 
258 


CES 

H=@ 

C¥@ 

PRINT@ 32, "} JOROLL; 2 TO STAND; 3 
END” 

[INPUT A:TF ASS THEN 594 

PRINT@ 64, * ; 

IF f&2 THEN 244 

H=H+tRNOCSIJ+1 

SOUND 14@, 5 

GOSUB 994 

PRINT@ 122, “rOUR SCORE “3H 

[F H?21 THEN GOSUB 52@:GOTO 244 

GOTO 194 

GOSUB 4394 

IF CoH ANO C622 OR C21 OR H>21 OR H 
AND C=21 GOTO 314 

C=C+RNO(SI +] 
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268 
278 
288 
298 
308 
314 
328 
338 


GOSUB 498 

SOUND 18@; ] 

PRINT@® 197, °HY SCORE"SC 

GOSUB 498 

GOTO 248 

GOSLB 43948 

IF H=C OR H)21 AND (21 THEN 446 
IFCC3H OR HP21)] AND C<22 THEN CLS RN 


OC87:PRINT@ 192,TABC12) "i* 


348 


IF (CCH OR ©)21] AND H¢22 THEN GOSUB 


526:CLSRNOC8I:PRINT@ 192, TABCI1) “ YOU" 


354 
368 
378 
388 
398 
448 
416 
4720 
432 
444 
458 
468 
47@ 
48 
4948 
588 
514 
528 
538 
544 
9548 
568 


PRINT@ 224, TABCi]) "WIN" 
FOR CC=] TO 19@88:NEXT CC 
FOR SS=14 10 2046 STEP 16 


SOUND SS;,1:NEXT SS 

FOR SS=1938 10 186 STEP -18 
SOUND SS,1:NEXT SS 

GOSUB 43a 

CLS 

GOTO 38 

PRINT "“DEAQ HEAT" 

FOR $5=18 7O 206 STEP 10 
SOUND $5, 1 

NEXT SS 

FOR DD=1 JO 2@8:GOTO 188 
FOR E=1 T0 388 

NEAT E 

RETGRN 

FOR CC=1 TO 750 :NEXT:CLS 
FOR DO=]1 70 5 

SOUND 75, 1 

FOR TT=1 TO 5@ 

NEAT TT 
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578 
580 
330 
688 
614 
620 
630 
644 
6548 
6648 
678 
686 
638 
708 
18 
228 
P38 
748 


NEAT DD 

PRINT@ 206, *“BUST" -RETURN 

PCLS 

PMODE J), 1 

SCREEN 1,;] 

FOR RR=130@ TO 1@ STEP -10 

CIRCLE €128,923,RR2SOUND 2@G-RR, | 
NEXT RR 

FOR CC=! TO 1@@@-NEXT CC:CLS:END 
PCLS 

PMODE 1,) 

SCREEN 1:1 

FOR RR=10 Tf 3S STEP 5S 

CIRCLE (128,523,RR:SOUNO ]@0+RR, 1 
NEAT RR 

FOR CC#} TO 20:SOUND 190,):NEXT CC 
cLS 

RETURN 
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TEN PIN BOWLING 


This program converts your computer into a Ten Pin Bowling 
alley. After a display of graphics the computer sets up the 
pins for you. The computer shows you the bowling alley as 
viewed from above. 


You will then be able to play a standard game of ten frames 
with two balls to each frame, except for the times when you're 
good enough to get a strike with the first ball. The computer 
will keep track of your score, tell you which frame and bail you 
are currently playing and reset the pins for you at the end of 
each frame. The game has a high score feature to add extra 
interest to the game. 


You'llget a bonus scoreif all pinsare knocked down with the 
two balls in the frame. A strike is scored if all the pins are 
knocked down with the first ball of the frame. 


Afler the computer has set up the pins it will ask you to 
“PRESS ENTER TO BOWL". Pressing ENTER will then 
cause the square Dowling ball to trundle up the screen into 
the pins. Linés 20 to 280 run the graphics at the start of the 
game. The GOSUB in liné 290 sends the program to the title 
sequence in lines 940 to 1040. Line 310 is the start of the 
actual game. 


Line 390 tells you that the computer is ready to bowl and 
waits for your input. After you have pressed ENTER, the 
GOSUB in line 410 goes to the routine in lines 860 to 930 
which prints the ballon the screen (CHR$(i28)) and makesit 
roll up the screen. Lines 770 to 830 set up all the pins at the 
beginning of each frame using the PRINT@ command. 


56 


Lines 510 to 560 print the pins after the ball has been bowled. 
This shows the results of your efforts with a combination of 
0’s and —’s. Line 590 advises you of a bonus and line 720 
tells you if you scored a strike. 


HE 





1@ REM TEN PIN BOWLING 

20 PELS 

3@ PMODE 4,1 

4@ SCREEN 1,1 

3@ FOR T=5 TO 25@ STEP 5 

60 .LINE “CI26,92)=(1 527 FSET 
7A NEXT T 

84 FOR W=2 TO 19@ STEP 5 

3Q@ LINE (€128,923-(25@,W),PSET 
14@ NEXT W 
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114 
126 
130 
146 
158 
168 
176 
188 
1398 
2 BG 
218 
228 
238 
248 
258 
268 
278 
288 
298 
388 
318 
326 
338 
348 
358 
368 
378 
388 
3398 


FOR S258 10 3 STEP -S 

LINE £)28,92)-CS, 198),PSET 
NEXT $ 

FOR V#198 TO 2 STEP -S 

LINE €128,92)-(€5,VIJ;PSET 
NEXT U 

FOR T=5 TO 258 STEP 5 

LINE (128, 92)-C€T,2),PRESET 
NEXT T 

FOR tF2 TO 198 STEP 5 

LINE (€128,92)-(258,W), PRESET 
NEXT W 

FOR S=250 TO 5 STEP -5 

LINE €128,92)-(€S,19@), PRESET 
NEXT S$ 

FOR Ve198 TO 2 STEP -5 

LINE €128,92)-£5,V), PRESET 
NEXT VU 

GOSUB 944 

CLS 

F=2 

DIN AC1G) 

T= 

S=8 

FOR B=) TO 1G 

GOSLE 778 

FOR E=) 10 2 

IF E=] THEN PRINT@ 466, " " 
PRINT@ 384, “FRAMNE:";B3;"PRESS ENTER 


TQ BOWL" 3 


488 
418 
428 


INPUT A$ 
GOSUB 868 
PRINT@ 393, " 
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§3@ PRINT@ 7, “FRANE:"36;"BALL:" jE 
44@ 2=@ 

$50 FOR C=1 1 16 

46@ IF E=2 GOTO 486 

470 ACCI=79 

48@ [F RNDC1G@)<? THEN ACCI=45 

$96 IF ACCJ#45 THEN 2-241 


948 NEXT C 
914 PRINT@ 76, CHR¢CACIGII3" "j;CHRE(ATII) 
i" "“GCHRSCACBIIZ" "3CHRECAC7I) 


926 FOR T=) TO 16@:NEXT T 

938 PRINT@ 1@9, CHR#CAC6I43" "j;CHRECACS) 
13" “3CHR#CAC4S)) 

946 PRINT@ 142; CHRS#CAC3ZII3" “SCHRECACZ) 
q 

938 FOR T=1 10 ]4@:NEXT T 

968 PRINT@ 175, CHRSCAC1II 

978 PRINT@ 446, “SCORE THIS FRAME :" 32 
S8@ [F #=14@ THEN #=15 

394 IF @=15 THEN PRINT@ 202, “### BONUS 
He" :FOR T=) TO S@Q:NEXT T3PRINT@ 242, " 


600 [F E=2 THEN S=S+t2 

616 JF E=2 AND 8¢>1@ THEN PRINT@ 46, “SC 
GRE SO FAR:" 35 

624 FOR T=1 TO )@@Q:NEXT 

630 NEXT E 

64@ NEXT 8 

65@ PRINT@ 4G, "SCORE SO FAR:"35 

664 PRINT@ 416; “SCORE FOR THAT GANE WAS 
2"35 

676 IF S¢Y¥ THEN 69@ 

686 Y=S 
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694 PRINT@ 416; “HIGHEST SCORE SO FAR:"; 
7 

744 FOR T=1 TO S@@:NEXT T 

714 GOTO 344 

720 PRINT@ 234, "AX STRIKE 44" 

734 FOR T=] TO S@@Q@:NEXT T 

744 S=S+15 

730 E=2 

764 GOTO 384 

778 FOR D=1 TO 18 


7@@ ACDI=79 

739@ NEXT O 

B4G PRINT@ 76, CHRSCA0IG));° * jCHRECACSI) 
i“ “jCHRS(CACBII3" “jCHRSCAC?)) 

B1@ PRINT@® 149,CHR#CACBII5" “CHRS{AC SI) 
3" "SCHRECAL4I) 

B2G PRINT@ 142, CHRSLAC3IIS" “SCHRSE(AC2 9) 


B34 PRINT@ 175, CHRECACIII 
644 FOR T=) TO 2@@@:NEXT T 
654 RETURN 

B6G FOR JJ=367 TO 2@? STEP -32 
B7@ X#=CHRE0I2B) 

BBG PRINT@ JJ, X¢ 

694 FOR UV=l TO i@:NEAT 
94@ SOUND 54, 1] 

914 PRINT@ JJ, ° ' 

924 NEXT JJ 

93@ RETURN 

944 FOR LC=2 TO B 

soe CES CC 
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964 PRINT® 192, FABC4) "Xxx TEN PIN BOWL 
ING #AK" 

97@ FOR SS=]8@ 70 258 STEP 18 

S86 SOUND 35,1 

998 NEAT SS 

1@@@ FOR SS=248 TO 188 STEP -18 

]@1@ SOUND SS) 1 

1@2@ NEXT SS 

1@3@ NExXF CC 

18408 RETURN 
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ROULETTE 


The following two programs give you the opportunity to try 
one of the traditional Casino games without the danger of 
losing your life savings. The first program simulates the 
European game of roulette which uses a wheel nurnbered 
from one to thirty-six plus zero. The second program caters 
for the American system which uses one to thirty-six, zero 
and double zero. 


Roulette uses a table divided into squares, marked with the 
numbers on the wheel and are used for placing bets. The 
numbers are in three rows of twelve. Some are red numbers 
and some are black. The red numbers are 1, 3, 5, 7, 12, 14, 
16, 18, 19, 21, 23, 25, 27, 30, 32, 34 and 36. The black 
numbers are 2,4,6, 8, 10, 11, 13, 15, 17, 20,22, 24, 26, 28, 
29, 31, 33 and 35. 


THE BRLL HRD STOPPED OW + 





YOU HRYE LOST 


When you run the program, the cornputer will tell you how 
many chips you have to play with. It will then ask you to place 
your bet, followed by asking you how many chips you wish to 
gamble. The wheel is then spun. When the wheel stops, the 
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computer will tell you if you have won or lost. The game is 
over when you lose all your chips and creep away in dis- 
grace. However, if you are clever enough to win a fortune of 
1000 chips (plus your original 100 chips} you'll have broken 
the bank. 


You are able to bet on a wide variety of numbers and combi- 
nations of numbers. The key to placing your bets is:- 
A-— any single number (1 to 36} 

B— two adjoining numbers 

C— three numbers in a row 

D— six numbers in adjining rows 

E— four numbers in a square 

F — first twelve numbers (1 to 12} 

G— second twelve numbers (13 to 24} 

H— third twelve numbers (25 to 36} 

}— numbers 1 to 78 

J— numbers 19 to 36 

K- twelve numbers in a horizontal row 

L— two adjacent columns 

M— any red number 

N — any black number 

O-— any even number 

P— any odd number 

Q— to quit the garne 


The computer will not allow you to bet more chips than you 
have. You may enter Q fo quit the game at any time. The two 
programs are very similar, with the second one having a few 
extra lines to provide the double Zero. 


A quick look at the first program shows that the GOSUB in 
line 30 sets up the graphic routine at the beginning of the 
game. Variable K in line 40 provides a delay which is called 
from several different points in the game. Lines 150 to 300 
process your input and send the computer to the relevant 
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sub-routine. These routines (lines 510 to 710) work out the 
required numbers and the payout odds if you win. 


Lines 1120 to 1160 print the checkerboard pattem around the 
number displayed on the screen when the wheel is spun. 
Lines 340 to 350 provide the spianing effect of the wheel. The 
sound is provided by the GOSU6 in line 340. A lengthening 
loop is used to give the effect of the wheel slowing down. 


1@ REM EUROPEAN ROULETTE 

26 2$=CHRS(185) -Ws=" " 

3@ CiLS:GOSUB 1178+: GOTO 5a 

4@ FOR K=1 TO 1@@@:NEXT:RE TURN 

38 DIN 8(24):CH=10@ 

646 CLS:PRINT@ 39, "YOU HAVE" CH; "CHIPS" 
?@ GOSUe 44 

8@ PRINT@ 162; "LADIES AND GENTLEMEN": PR 
INT@ 132, “ PLEASE PLACE YOUR SETS" 

3@ INPUT AS:1F AS=“" THEN 9G 

146 A=ASCCASI-64:]F A<1 OR API? THEN 3G 
1)@ IF A=l? THEN 740 

]2@ FOR G=1]1 TA 24:8(O}=—-399:NEXT 

13@ INPUT "HOW MANY CHIPS“ ;N:JF NCH THE 
N $28 

14@ CH=CH-N 

15@ IF A=1 THEN GOSUe 514 

16@ [F A=2 THEN GOSUS 520 

17@ [F A=3 THEN GOSLB 534 

18@ [F A=4 THEN GOSUS 55a 

19@ IF A=5 THEN GOSUE SBG 

26@ IF A=6 THEN GOSUE 58a 

21@ IF A=? THEN GOSUP 3536 

22@ [F A&=8 THEN GOSUe 6aG 

236 IF A=3 THEN GOSUS 618 

24@ IF A=I1@ THEN GOSUE 626 
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25@ IF A=}1 THEN GOSUB 638 

266 EF A=12 THEN GOSUS 6548 

276 IF A#13 THEN GOSLe 676 

286 IF A=14 THEN GOSLE 636 

298 IF A=!S5 THEN GOSUe 780 

308 IF A=16 THEN GOSUS 718 

314 GOSUE 44 

326 CLS RNDCBI:PRINT@ 192, TAB(1) “#k# TH 
E WHEEL I5 SPINNING #48":GOSUB 48 

3394 CLS 

34@ GOSUB 112@-:FOR B=! TO 5@:C=RAOC373-1 
-PRINT@ 237;C:PRINT@ 241,2¢:FOR T=1 TO 3 
*B 

358 NEXT:?GOSUB 918 ?NEXT 

366 GOSUB 44:PRINT@ 34, "THE BALL HAS ST 
OPPED ON" 3C 

376 Y=@:E=] 

3B@ IF @CEIJ=C THEN Y=1:GOTO 448 

39@ IF E<24 THEN E=E+1-GOTO 38a 

400 IF Y=@ THEN 476 

91@ W1I=O0X%N -CH=C Ht ]+N 

42@ PRINT@ 352, "CONGRATULATIONS YOU HAY 
E WON'3WIG" CHIPS“ 

43@ PRINT “PLUS YOUR BET OF" jN3“CHIPS" 
44@ GOSUB 404 

454 GOSUB 488 

466 GOTO 68 

47@ PRINT@36@; "YO HAVE LOST":GOTO 448 
484 IF CH<l THEN GOTO 816 

436 IF CH>1184 GOTO 934 

54@ RETURN 

514 INPUT “WHICH NUMBER" 3D: BC 1)=D:00=35: 
RETURN 
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924 INPUT "WHICH TWO NUMBERS"; BC1),BL2): 
OD= 17 :RETURN 

334 PRINT “WHICI4 NUMBER" :INPUT " InN: LE 
FT COLUMN" ;D 

596 FOR E=@ TO 2:8(E+11=D+E -NEXT -O0411:R 
E TURN 

95@ INPUT “FIRST NUMBER OF SIX" ;D:FOR E= 
@7T0 S:BlE+)] )=01E :-NEXT 7-O0=5: RETURN 

268 INPUT "FI®&ST NUMBER JN SQUARE" jO0:FOR 
E=@ TO 3:BCEt]J=OrE:1F E=2@ THEN O=O0+t] 
978 NEAT :OD=87RETURN 

566 FOR E=l TO )2:8CE)=E:NEXT:O0#2:RETUR 

N 

99@ FOR E=l TQ 12:BCE)=E+)2-:NEMT :OD=2:RE 
TURN 

646 FOR E=1 TO 12°8CEJ=E+24:NEXT :O0=2:RE 
TURN 

618 FOR El TO 16:BCEJ=E-:NEAT-OD=)]:RETUR 
N 

626 FOR E=1 TO 18:BLEJ=E+18:NEXT :OD=1 ‘RE 
TURN 

6326 PRINT “LOW NUMBER AT END": INPUT "OF 
i JNE" jD 

646 FOR E=@ TO 1) BLE +) J=34E+O NEXT 'O0=2 
‘RE TURN 

65@ INPUT "LOW NUMBER JST COLUMN" | D1 7 LNP 
UT "LOW NUMBER 2NO COLUMN” j;DZ:1F ABSILO1- 

O2)>1 THEN 65a 

664 FOR E=@ TO 1) :BCE+))=3*E+0) *BLE+!3)= 
3*E+O02 ‘NEXT 'O0=,.55RETURN 

67@ RESTORE 

Be@ FOR E=l TO 18:REAO SCE) -:NEXT -OD=L ‘RE 
TURN 
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69@ RESTORE2:FOR E=l TO 18:READ @:NEXT -FO 
R E=1 TO 18:READ BCE IJ-NEAT :OG=1 : RETURN 
708 FOR E=2 TO 36 STEP 2:8CE72Z)=E -NEXT:0 

D=] :-RETURN 

7)@ FOR E=1 TO 35 STEP 2:6CCE+1)72)5E:NE 

*T :OD=] :RETURN 

20 DATA 11,3,5,7;9,12514,16,18,19,2), 23; 

29; 27; 30,32; 34, 36 

238 DATA 2,4,6,8: 1@;]1,13, 15,17; 20,22,24 
126,28, 29,3)],33,35 

7448 CLS RNDCS8I:FRINF@ 192,TABC3) “YOU AR 
EF WITHORAWING FROM THE" 

738 PRINT@ 224, TABC?) "GAME WITH" ;CH3"C 

HIPS" 

764 FOR SS=l TO 248 STEP 20 

27@ SOUND SS, 1:NEXT 

788 FOR SS=22@ TO 1 STEP —20 

73@ SOUND SS, 1:NEXT 

848 ENG 

814 FOR Jyv=1 TO 15 

828 PRINT TABCS) “YOU HAVE LOST” 

83@ NEXT J] 

848 FOR OD0=1 TO 1@@:NEXT 

85@ CLS RNOCS) 

864 PRINT@ 192, TABCS) “YOU HAVE RUN QUT 
OF LAIPS* 

878 FOR S$S=14@ TO 1@ STEP -5 

88@ SOUNO SS, 1 

8398 NEXT 

3288 END 

314 SOUND 158,1 

92@ RETURN 

338 PCLS 
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S4@ 
958 
36@ 
978 
beh 
396 
1a8@ 
1416 
] a2@ 
1436 
1446 
1450 
1 G68 
1478 
1480 
1@9@ 
1188 
BAN 
I11@ 
1128 
1136 
1144 
1158 
1168 
TURN 
11768 
)18@ 
1198 
1208 
1214 
12208 
1238 
1248 


FHOCE i, i 
SCREEN },;) 
FOR XX=1 TO 256 STEP 30 
FOR YY=1 TO 192 STEP 30 
CIRCLE CXX, Y¥2,30,7 
NEXT = NEXT 

FOR MM=1 TO SBG:NEXT 

FOR TT=1 TOS 

FOR SS-1@8 TO 275@ STEP 1G 

SOUND $S,1 

NEXT $s 

FOR SS=240 TO 166 STEP -1@ 
SOUND $$, ) 

NEXT $s 

NEXT TT 

CLS RNDCS3 

PRINT@ 192, “XX YOU HAYE BROKEN THE 
K xk" 

END 

PRINT@ 171], 28 528 528328 528 52 525 
PRINT@® 263; 253We 5274 

PRINT® 235, Z¢;Wt;z4 

PRINT@ 267, Ze sive 52s 

PRINT® 299, FH$pFSjp FS VFS 5 ZS 52S ZS-RE 


PCLS 

PMOOE 1,1:SCREEN 1,1 

LIKE f1,13-C252, 1881,PSET,8 
LINE C2@, 26)-C232, 1583, PSET,B 
LINE C40, 46)-C£2)2, 1383,PSET,B 
LiNE C60, 66)-C192,1183,PSET,B 
LINE(CS@,5@)-(€172,98),PSET;B 
PAINT(C11,113,56,8 
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1254 PAINT(4S,45),7,8 

1264 PAINT(82,82),2;2 

1274 FOR OO=]1 TO 5@a:NEXT 

1284 CLS RNOI8) 

1294 PRINT@ 1925 "XRAKAKRK KK KKKKK KKKK KKK 
SHKKKKKKKKK" (FOR DO=1 TO 262NEXT 

13a4@ SOUND 225, 1 

1314 PRINT® 192; “KXKKKKKKKK ROULETTE 
KHKKKKKK AK" FOR OO=1 TO 3G:NEXT:=SOUNO 24 
@, 1:f0=0G 1 

1324 IF CC-2@ THEN RETURN 

1334 GOTO 1294 


14 REM AMERICAN ROUETTE 

246 2¢=CHRF01 85) :We=" Ee 

34 CLS-GOSUB 1184: GOTO 5a 

44 FOR K=1 TO 10@@:NEXT:RE TURN 

34 OFM BC24):CH=14a 

B64 CLS:?PRINT@® 33, *YOU HAVE" 3CH3 "CHIPS" 

?@ GOSUB 4a 

84 PRINT@ 142, *“LADIES ANO GENTLEMEN" :PR 
INT@ 132, " PLEASE PLACE YOUR BETS* 

34 [NPUT AS:IF AS="" THEN 9 

144 A=ASCCASI-B4:IF ACL OR API? THEN 34 

119 IF A#1? THEN 75@ 

124 FOR G=1 TO 24:8(0)=-99-NEXT 

13@ INPUT "HOL) MANY CHIPS" jN?IF NOCH THE 
N 13d 

14€@ CH=CH-N 
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J5@ [F A=) THEN GOSUB 526 
I6@ fF A=? THEN GOSbEe 53a 

176 IF A=3 THEN GOSiB 548 

18@ IF A=4 THEN GOSUB 568 

196 IF A=S THEN GOSUB 578 

268 I[F A=6 THEN GOSUB 598 

214 [F A=? THEN GOSUB 6&4 

22@ [F A=8 THEN GOSUB 618 

23@ IF A=9 THEN GOSUB 628 

246 [F A=1@ THEN GOSUB 638 

256 IF A€=11 THEN GOSUB 648 

26@ IF A=12 THEN GOSUB 668 

270 [F A&=13 THEN GOSLE 68 

284 [F A=14 THEN GOSUS 7B 

296 IF A=1S THEN GOSUS 718 

34@ IF A=!I6 THEN GOSUB 728 

316 GOSUB 48 

328 CLS RNDO(BI:PRINT@ 392; TABC1) “#x# TH 
E WHEEL IS SPINNING #*#":GOSLE 48 

330 CLS 

34@ GOSUB 113@:FOR B=1 TO 5@:C=RNO(36)-2 
‘IF C=-1 THEN PRINT@ 238, "GG" ELSE PRIN 
T@ 237,C 

356 PRINT@ 241,2$:FOR T=i TO 34B 

368 NEXT: GOSUB 92@:NEXT 

370 GOSUB 4@:JF C=-]1 THEN PRINT® 34, “TH 
— BALL HAS STOPPED ON"," DOUBLE ZERO" EL 
SE PRINT@ 34, "THE BALL HAS STOPPED ON; 
Cc. 
388 Y=@:E=] 

39@ IF BCEJ=C THEN Y=) :GOTO 418 
400 IF E<24 THEN E=Er):GOTO 398 
45@ IF Y=@ THEN 488 
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426 WI=OD4KN 3CH=CHt+W I+N 

43@ PRINT@ 352, “CONGRATULATIONS YOU HAY 

E WON*;Wi 3“ CHIPS" 

44@ PRINT “PLUS YOLR BET OF“ 3N3;"CHIFPS* 

456 GOSUB 44 

466 GOSUB 454 

47@ GOTO 68 

48@ PRINT@360, "YOU HAVE LOST” :GOTO 454 

4394 ]F CH<] THEN GOTO 828 

346 [F CH3118@ GOTO 346 

318 RETURN 

52@ INPUT "WHICH NUMBER" 30 ?601)=D:00=35: 

RE TURN 

33@ INPUT “WHICH TWO NUMBERS“ 3BL1I,6f2): 

O0=17 :RETURN 

344 PRINT "WHICH NUMBER“: INPUT “ IN LE 

FT COLUMN” ;0 

356 FOR E-@ TO 2:6fE+i J=O+E:NEXT :0D=11-R 
ETURN 

364 [NPUT "FIRST NUMBER OF SIX" 3B-FOR E= 
@ TO S:BCE+1] J=O+E 2NEXT -00=5 2RE TURN 

37@ (INPUT “FIRST NUMBER IN SQUARE” ;D2>FOR 
E=@ TO 3:6CE+1)J=DtE-1F E=2 THEN D=D+1 

386 NEXT -O0=8 2REIURN 

53396 FOR E=1 TO 12:6CEJ=E:NEXT > O00=2:RETUR 

N 

668 FOR E=!1 10 12:BCEJ=E+i 22NEXT 20D=2:RE 
TURN 

616 FOR E=1 TO 12-:8fEJ=E +24 -NEXT -O0=2 -RE 
TURN 

62@ FOR E=! TO 18:BfEd=E:NEXT :O00=1-RETUR 

N 
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636 FOR F=) TO )18:8(EI=E+]8*NEXT -OO=) -RE 
TURN 

646 PRINT “LOW NUMBER AT ENO" +] NPUT “OF 
LINE" 50 

656 FOR €-@ TO 1) :BCE+)I=3kE+ O2NEXT 00-2 
SR ETURN 

666 JNPUT “LOW NUMBER IST COLUMN" 301 >) NP 
UT “LOW NUMBER 2NI3 COLUMN" ;O2-1F ABSLOI-- 
N2)21 THEN 666 

67@ FOR E=-@ TO 11 -BLE+)J=3kE+O) -BlE+)3)= 
SRE1N2 NEXT 2002.5 -RETURN 

686 RESTORE 

696 FOR E=j] TO 18:READ SLE): NEXT :OD=) 2RE 
TURN 

?@6 RESTORE:FOR E=) TO JB2READ 22NEXT ‘FO 
R E=] TO 182READ BCC) -NEXT :O0*)] -RETURN 
716 FOR E-2 TO 36 SIEP 2:BCE 4 2)=E ‘NEXT +O 
O=) : RETURN 

P26 FOR E=) TO 35 SIEP 2:8( (E+) J 42) =& :NE 
XT :?00=1] -RETIRN 

236 DATA 1,3,5.7,9; 12,14: 16,18; 19,21,23; 
25327; 38, 32; 34,36 

248 DATA 2.9,6,2,16,1).13; 15; 19; 20,22 ,24 
: 26 ,28,29;3); 33,35 

P90 CLS RNO[SI-PRINT@ 192, TABL3) “YOU AR 
F WITHDRAW] NG FROM THE" 

760 PRINT@ 2246, TABC7) "GAME W) TH 3CH;"C 
HIFS* 

?7?@ FOR SS=)] TO 246 STEP 29 

#88 SOUND SS, ) «NEXT 

738 FOR SS-226 TO 1 STEP ~26@ 

£@@ SQUND SS, 1 +NEXT 

616 END 
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B24 
63a 
84a 
85a 
86a 
37a 

OF 
8ea 
85a 
34a 
314 
328 
334 
344 
954 
364 
974 
384 
354 


FOR sJ*] TO 15 

PRINT TARES) "YOU HAVE LOST" 
NEXT JJ 

FOR OO=1 TO 1@@:NEXT 

CLS RNOCB) 

PRINT@ 1952, TAB(S) “YOU HAVE RUN OUT 
CHIPS" 

FOR SS=14@ 10 1@ STEP -5 
SOUND SS, 1 

NEXT 

END 

SOUND 154; 1 

RE TLIRN 

FCLS 

PIDDE i;1 

SCREEN 1,1 

FOR XX=) JO 256 STEP 3a 

FOR Yy=1 TO 192 STEP 30 
CIRCLECKX, YY, 3; ? 


1G4@Q NEXT: NEXT 

1414 FOR GD=-1 10 S@@:NEXT 

1424 FOR Tlt+1 10 5 

143@ FOR SS*14@@ TO 256 STEP 14 
4@4@ SOLND SS, 1 

145@ NEXT SS 

1464 FOR SS=24¢@ JO 146 STEP --14 
147@ SOUND $S,1 

1484 NEXT SS 

1494 NEXT TT 

1144 CLS RNDCS) 

111@ PRINT@® 192, “%** YOU HAVE BROKEN THE 
BANK Ax“ 

$124 ENO 
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1138 
1148 
1158 
1168 
1178 
TURN 
4168 
1198 
1288 
1218 
1226 
1238 
1248 
1258 
1268 
1278 
1268 
1298 
1388 


PRINT@ JA1, 291.2% f2S 52S 52S jp 2S 5 2S 
PRINT@ 203, 24 j3l$ j24 

PRINT@ 235, 25 j;WS 52% 

PRINT@ 267; 24 jWSi24 

PRINT@ 299, #3 529 ;23j2S ;2$5 245,23 :RE 


PCLS 

PMODE J,1:SCREEN 1,1 
LINEC1,1)-{£252;166),PSET.B 
LINE (20, 2@)-—C€232,158),PSET;8 
LINEC4@;46)-€212;138),PSET,B 
LINE €68,60)-C€192,1183,PSET,8 
LINE C84, BG3-€172,98) ,PSET,B 
PAINTC11,11),6,8 
PAINTC45,453,2,8 
PAINT(82,82),8,8 

FOR OD=1 TO S@8:NERT 

CLS FNOCB) 

PRINTB 192, “KKKKAAKAAK KKAKAMAKE ERK 


KAKAKAAKAK FOR DD=)] TO 26: NEXT 


13148 
1326 


SOUND 225, 1 
PRINTB 192, “AKKKAKKKAK ROULETTE 


KAKAKAAKKKAK" FOR OD=)] TO 3G:NE RT? SOUND 26 
@,1:CC=CC+! 
1336 [F OC=2@ THEN RETURN 


1348 


GOTO 1300 
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TEE OFF 


Tee Offis a fully computerised, nine-hole gaf course. The 
computer will tell you the par for each hole, the number of 
strokes taken foreach hole, your running total ofstrokes and 
at the end of the game your total score and hole average. 


After displaying the par for the hole and the hole number, the 
computer will ask “STROKE ?". To hit the ball enter a 


Pee FOS FHIEE HOLE: 6 
we HOLE HUNBER 2 Rss 


AFTER THAT STROKE YOUR SCORE 78 
6 


STROKE ? 


number, The higher the number, the harder you hit the bail. 
The computerweorks out, in line 120, the distance the ball has 
travelled. Variable A is the number you used to hit the ball. 
From this, the computer determines the value of variable J, 
the position where the ball lands. This is displayed on the 
screen by lines 360 to 400 ifthe ball hasn'tlanded in the cup, 
and fines 420 to 470 if it has. 


The cup is at position 24 and the computerdecides ff J = 24 
in line 160, Variable SC is your score for each hole, and 
variable © the running total and final score. Your average for 
each hole is calculated in line 520, 


Lines 570 onward have nothing to do with the game proper, 
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but provide the simple cartoon if you decide to stop playing. 
These Ines may be deleted or altered to provide your own 
ending. 


1@ REM TEE-OFF 

26 C=6 

36 FOR 2-1 T0 9 

46 J=RNOCIZ3-) 

38 S€-8 

68 QD-RNDC4)+2 

6 ELS 

36 GOSUB 388 

SB PRINT“STROKE “3-INPUT A 
166 CLS 

116 IF J224 THEN @--fAA 

126 J=J+INTCAZRND(A)) 

136 GOSUP 348 

146 SC-SC+1 

156 PRINT"AFTER THAT STROKE YOUR SCORE I 
Ss ”35C 

166 IF J4?24 THEN 36 

176 GOSUB 426 

136 C=C+SC 

19@ PRINT"SCORE FOR “323” HOLES [5 ";C 
266 FOR MN=1 TO 1686:NEXAT 
21@ FOR L=1 TO 26 

226 FOR ¥Y=1 TOL 

238 PRINT " “3 

248 NEXT Y 

258 FOR T-1 TO 4@:NEXT 

266 PRINT"STANO BY" 

278 NEXT L 

220 NEXT 2 
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298 GOTO 490 
300 IF J>3@ THEN J=30 

31@ SOUND 15@,):SOUNO 159, 1 

32 PRINT "PAR FOR THIS HOLE>>"3Q 

330 PRINT “#48 HOLE NIMBER" 52; "#48" 

340 PRINT 

350 PRINT 

360 FOR K=1 70 v-1 

37@ PRINT” “3 

380 NEXT K 

39@ PRINT"O* 

480 PRINT “----------------------- =---- 


41@ RETURN 
420 PRINT “------------------------9---- 


43@ FOR L=i 10 18 

440 PRINT’ YOU DID I7 IN “35C3" STROKES” 
650 FOR T= 17050 

46@ NEXT 

470 NEXT L 

480 RETURN 

49@ PRINT"ENU OF THAT ROUND" 

208 PRINT 

51@ PRINT" YOU SCORED "3€ 

320 PRINT" YOUR AVERAGE WAS “ 3fC79) 

53@ PRINT 

54@ PRINT"DO YOU WANT ANOTHER ROUND? CYTE 
S7NO 3" 

550 INPUT I[¢ 

S60 IF T#0"“NO" THEN RUN 

578 GOTO 58@ 

58@ CLS(6] 
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298 
64a 
614 
62a 
624 
644 
65a 
66a 
67a 
68a 
636 
va) 
71@ 
720 
738 
746 
728 
766 
776 
736 
736 
BaG 
#1@ 


FOR H= @ TO 63 
FOR W=22 TO 31 


SETCH,VU,1) 

NEXT U,H 

FOR H=42 TO 44 

FOR Y=23 TO 24 

SET CH,U,6) 

NEXT UyH 

FOR H=4¢ TO 5 
U=2) 

SET(CH,V, 52 

NEXT H 

[F F355 THEN F=55 :G0TO/9G 
=z) 


FOR H=4 TO 5 

SET(C) +F+H, VU, 6) 
SETC3+F +H, V,5) 

NEXT H 

=F+Z 

GOTO 718 

SOUNO 56, 1 

PRINT@ 448, “WHOOPS?22" 
60TO 818 
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SIMULATIONS: 
COLONY (LIFE) 
ACME ZITHER COMPANY 
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COLONY 


This program simulates the life cycle of an isolated colony of 
single celled organisms. Although the cells are simple crea- 
tures they have evolved a highly organised society governed 
by a strict set of laws. These laws control the birth, growth 
and death of the cells from one generation to the next. 


It is possible for a cell in the interior of the colony to have upto 


BEHERPHRTION 3 





eight neighbours. A cell in an outside wall can have five 
neighbours and a corner cell three neighbours. 


The laws state that a cell with two or three neighbours will 
survive to the next generation. A new cell will be born into an 
empty space if that space has three cells adjoining it. Any cell 
with four or more neighbours will die from over-population 
due to the competition for food and living space. Acell with no 
neighbours will die of loneliness. 
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The program begins by using DIM to create a ten by ten 
array. Although the colony occupies a nine by nine grid, aten 
by ten space is required. The computer checks each cell for 
neighbours and it will show an error if it checks an outside 
wall or corner cell and doesn’t find an empty space on the 
other side of it. 


Lines 60 and 70 provide the grid locations. Lines 80 to 110 
randomly decide ifa grid location is occupied by acellorifitis 
an empty space. Lines 310 to 390 print the grid onto the 
screen using an inverse letter O if the grid position is 
occupied by a cell, or a blank space (CHR$(128)) if the 
location is empty. 


GENERATION 45 


g00000 

0 go 00 
ekers) 
000 





Lines 170 to 280 apply the laws to each grid position and 
adjust the value of M for the next generation. Line 130 incre- 
ments the number of the generation and line 300 provides the 
sound effects. The idea for the program comes from John 
Conway’s LIFE. 
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18 

28 

30 

40 

58 

68 

70 

308 

98 

108 
118 
120 
130 
148 
138 
160 
178 
1308 
138 
208 
210 
228 
238 
248 
2358 
CK 5 
288 
278 
230 
230 
Oe 
318 
320 


REM COLONY 
G=0 
CLS 
DIM MC1@,10) 
DIM NC1@,)@) 
FOR K=2 TO 9 
FOR #=2 T0 9 
IF RNOC1@@) 645 THEN f1(kK, 2)=1 
NCK, ZI=M(K,z2 

NEAT 

NEXT K 

GOSUB 388 

G=G+1 

FOR K=2 TO 9 

FOR #=2 TO 3 

c=8 

IF MCK-1,%-1)=] THEN C=#C+1 

IF MCK-1,2@2=1 THEN C=C+l1 

IF MCK-1,2@+1)J=1 THEN C=C+1 

1F MCK,#%-1)=1 THEN C=C+1 

[F fiCK,2@+13=) THEN C=C+l1 

IF MHCK+1,2-1J=1 THEN C=C+l1 

[F MCK+1,2)=1 THEN C=C+] 

JF M{K+1,2%41)=1 THEN C=C+l1 

IF M€{K,2%3=1 AND C<>3 ANO C<>2 THEN N 
Z3=0 

[F MCK,2#)=@ ANO C=3 THEN NCK; 2)=1 
NEAT 

NEAT K 

GOTO 1208 

SOUND 108,1:SQUND 208, ):SOUND 10@,;) 
PRINT 873, "GENERATION" 3G: PRINT 
FOR K=1 TO 10 
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33@ PRINT TABC1IO); 

340 FOR 2=) TO 14 

350 MCK, 2I=NCK,2) 

36@ [F MCK;2)=) THEN PRINT "eo"; ELSE PRI 
NT CHR#() 283 5 

37@ NEXT 2 

38@ PRINT 

39@ NEXT K 

44@ RE TURN 


Here is a graphic illustration of the development of one col- 
ony over 10 generations. 


GENERATION 2 GENERAT ION 2 
oo 00 Qg oo00 

0 0 0000 

0 090 0 

0 0 OP a a 

Qg Ooo 09o0aaq 
00g a0 go 600 

000 a 

0 O00 
GENERATION | GENERATION 3 
000 0 0 
00 0000 0 0 

00 0 aaa 

00 OG 0000 4 
aq. ag 00 Q 
0 00 9 0 00 
a.0 0 

000 000 
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GENERATION 4 


00 O00 
0 00 
0 0 

o.600 

00 


a 


0 
00 


GENERAT]ON 3S 
0 
0 00 0 
0 00 
000 OO 
0 00 
0 00 
00 
00 


GENERATION & 
o0 
00 0 


a a 


000 


ooo0o0oa 


00 
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GENERATION 7 
000 
00 
0 00 
Oo 00 
ONO). 3 
Oo ooo 
0.00 0 
oo 


GENERATION 8 
2 


GENERATION 9 
0 
0 


00 
00 00 
oo O00 
0a 000 
00 


The fdllowing program listing is for you ifyouhave access toa 
printer. The grid size has been enlarged to print out a bigger 
colony. This was done by changing the size of the arrays in 
lines 40 and 50, The values of K and 2 also need to be 


changed. 


This program is very slow bui does make a nice demonstra- 
tion program for a printer. You may speed up the execution of 
the program by making the arrays smaller. After the program 
listing, youll see a sample printout of this version of the 
program. 


1@ REM COLONY FOR PRINTER 

20 G=G 

3@ Cis 

46 QIN M015, 25) 

36 OIMN N(15,25) 

6@ FOR K=2 TO 14 

70 FOR @=2 10 24 

8@ IF RNOC1G@)<45 THEN NMCK, Z)=1 
3@ NCK, Z)=NCK; 2] 

1@@ NEXT @ 

11@ NEXT K 

126 GOSUB 38a 

130 G=G+] 

14@ FOR K=2 TO 14 

15@ FOR z=2 TO 24 

16@ C= 

17@ [IF MCkK-1,2-1)=1 THEN C=Cr! 
18@ IF MNCK-1,;21=1 THEN C=Crl 
19@ [F Nik-1,2+1J=1 TREN C=C+1 
260 IF (€kK,2-1)=1 THEN C=Crl 
21@ IF MCK;2%+13=1 THEN C=C+1 
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226 IF M(K+1,2-1J3=1 THEN C=C+l 

230 IF MCK+1,;22J=1 THEN C=C+1 

246 IF M(K+1,;2@+13=1 THEN C=C+1 

23@ IF NCK, @)=1 AND C<>3 ANDO C42 THEN N 
(K,2)=8 

266 IF NCK,2)=@ ANO C=3 THEN NIK; 2)=1 
278 NEXT 2 , 

28@ NEXT K 

29@ GOTO 126 

30@ SOUND 14@,1]:SOUNO 240, )1:SOUND 144; ) 
31@ PRINT #-2," “ 

3206 PRINTH-2, " GENERATION" 5G 

336 FOR K=2Zz TO 14 

344 PRINT TABCI@); 

356 FOR 2=2 10 24 

368 MCK, ZJ=NCK, 2) 

37@ IF MCK,;2)=1 THEN PRINT#-2, “O*; ELSE 
PRINTH-2," "3 

388 NEXT @ 

398 PRINT #-2," * 

“494 NEXT K 

41@ RETURN 
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GENERATION j 
00 9000 900 00 0 
o 600 00 00 Q 
0 0 00 0 
0 0 0 0 
00 oo 90 0 00 
0 090 0 0 
00 00 00 0 
0 0 
0000 00 0 0 
00 0 0 00 
00 0 00 000 
0 o oO 0090 
0 0000000 0 


GENERATION 2 
0000000 00 0 g000 


00 00.60 9 
0 000 OO 0 0 
0 0 000 
0 000 GO 00 
0 oO £9000 0 
000 O00 o ¢0 
000 0 
0 00 00 
o 0 0 oO 00 OQ 
00 0000 0 
900000 000 QO Q 
000000 00 


ACME ZITHER COMPANY 


Your computer has the ability to set up and manage a large 
number of variables, and the uses of this are only listed by 
your imagination. The ‘Acme Zither Company’ demonstrates 
just how effectively your computer can handle simulation 
information, manipulating it according to ground rules iaid 
down by the programmer. 


This program allows you to experience the excitement and 
despair of running a factory in a harsh economé environ- 
ment. 


The computer will provide you with a weekly balance sheet. 
This will contain all the information you require, such as the 
current week of trading, capital on hand, stock on hand, the 
selling price of your product, the current cost of production 
and the strength of your work force and its production poten- 
tial. 


You must keep a close watch on the amount of capital you 
have on hand as compared to your production costs and 
wages bill. Thismay be the keyto your success or failure as a 
factory manager. The computer will give you the opportunity 
to hire or fire staff. However you may find that the workers 
have a strong union if you try to fire too many of them. 


You will be able to set production targets (within the limits of 
your available capital and the ability of your workers). Then 
you must wait for your sales figures. 


At varioustimes you will have to cope with union demands for 
increased wages, suppliers putting up the price ofraw mater- 
iais and the occasional disaster. There will be opportunities 
to raise the price of your zithers but you must be careful. Do 
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not price them right out of the market place. The object of the 
game is to avoid the shame of bankruptcy and hopefully, to 
make a million dollars. The program listing is quite long but 
playing it will reward the patience required to key it in. 


Acme Zither Company is based on a series of subroutines. 
GOSUB 1500 sets up the values of all the variables in the 
program. These include the number of staff, the cost of 
production, the initial selling price of zithers and number of 
zithers each worker can make. 


GOSUB 850 provides the printout of the factory’s status. This 
is called up at several points in the game to keep you 
informed of any changes. GOSUB 1220 controls the hiring 
and firing of staff, pilus any union reaction to firing staff. 
GOSUB 1100 controis the manufacture of your product. It 
allows yo u to set a production target and tells yo u the produc- 
tion results. 


GOSUB790 Is your sales team. It provides the good news or 
the bad news about the current weeks sales. The sales 
figures can include zithers from your warehouse as well as 
the current week's production. Any unsold zithers are auto- 
matically placed in storage. 


GOSUB 360 controls the “unpredictables”. This includes 
events such as union demands for pay increases, rising 
production costs and the occasional fire. 


GOSUB 170 uses the commands CIRCLE and PAINT to 
provide a colorful opening to the game. Line 200 gives a 
Variable value to P. P is then used as the X axis co-ordinate 
for the centre of the circle. The spiral effect is obtained by 
incrementing P. 
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1@ REM ACME Z2ITHER COMPANY 
26 CLS 

34 GOSUB 178 

4@ GOSUB 1586 

5S@ WE=WE +1 

6@ GOSUB 35a 

7@ GOSUB 1220 

6@ CLS 

36 GOSUB 356 

1@@ GOSUB 1148 

116 GOSUB 358 

12@ GOSUB 739G 

J3@ GOSUB 366 

14@ CA=CA-INTCWGAWF J 

156 GOW 54 

J6@ ST=1 G@+RNOCSGG) 

17@ PCLS 

184 PMODE 3, ) 

13@ SCREEN 1,6 

206 FOR P=1@ TO 25@ STEP 10 
21@ Y=92 

22@ CIRCLE CP, YI, 28 

23@ NEXT P 

24@ PAINT (6;6)545;4 

25@ PAINT (255; 1914: 454 

26@ PAINT [(@;@), 3] 

27@ GOSUB 1626 

28@ CLEC3):PRINT@ 166, “ ":PRINT@ 1392, T 
ABC3) "A*k ACME ZITHER COMPANY *444* 
23@ PRINT@® 224, " " 

30G LEG 

31@ S=RND(5@)+2@G:SOUND 5S, 1: W=Wel 
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320 IF W=1@ GOTO 3408 

338 GOTO 318 

340 GOSUB 162@ 

350 RETURN 

360 REM UNPREOICTABLES 

378 CLS 

3B@ IF RNDC10@)<45 THEN 468 

3398 A=RND(10) 

4@@ SOUND 5@,3:CLS RNOCBI:PRINT@ 192, "U 
NIONS OEMAND A" 5A"z% PAY [NCREASE" 

410 WG=INTC1@@4C G+ CAKWG71 08) 3) 7108 

420 GOSUB 1620 

4308 PRINT “PAY PER EMPLOYEE [5 NOW $" 5WG 
#40 GOSUB 1620 

$350 CLS 

460 IF RNDC1@6)<85 GOTO 568 

47@ SOUND 25,3:CLS RNOC8):PRINT@ 192, “W 
AREHOUSE FIRE OESTROTS SOME OF YOUR STOC 
Kisae” 

480 PRINT@ 256, TABCZ) “STANDBY FOR DANA 
GE REPORT:" 

4398 GOSUB 1620 

500 A=INT CRNDCO)4ST72 41 

318 ST=ST-A 

520 CLS RND{S):PRINT@ 192, “TOTAL OF STO 
CK DESTROYED WAS" SAS" 2ITHERS, WORTH $* ; 
AXSP;"RETAIL™ 

530 GOSUB 1620 

540 PRINT “STOCK ON HAND 15 NOW "jST 

5580 GOSUB 1628 

560 IF RNOC!0@)>3@ GOTO 678 

57@ SOUND 100,3:CLS RNOC8):PRINT@ 160; T 
ABLS) “SUPPLIER ANNOUNCES DRAMATIC" 
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S36 PRINT@ 192, TABLES] "PRICE RISE 292" 
594 GOSUB 1628 

64@ A=INT CRNOCG341G64CT +7)7 188 

614 [F A¢.@1 GOTO 7B 

62@ PRINT@ 224, “THE COST OF MAKING 21TH 

ERS HAS GONE UP BY $";A;"EACH™ 

63@ FOR ¥=1 TO S5@@3:KNE XT 

6406 CT=CT+tA 

656 PRINT "]3 NOW COSTS $"3CT3"TO MAKE E 

ACH ONE" 

66@ GOSUB 1624 

67@ JF RNOC14@)<65 AND MP<SP THEN RETURN 

63@ CLS RNOC8) 

639@ SOUND 175,2:SOUNO 156, 2:PRINT@ 192, 
“YOU HAVE AN OPPORTUNITY TO RAISE YOUR P 
EICE™ 

748 PRINT@ 256; TABC4] “2ITHERS NOW SELL 
FOR #";SP 

71@ GOSUB 1626 

7206 PRINT@ 256, TABCII "STATE THE PERCEN 
TAGE OF YOUR PRICE JNCREASE";-:INPUT A 
730 [FAG THEN 2=2-+A 

74@ SP=INTCLGGA(SP+AASP7160))7108 

758 GOSUB162b 

76@ CLS RNDCSI]-PRINT@ 192, “ZITHERS NOW 
SELL FOR £° 7 5P 

778 GOSUB 1638 

73@ RETURN 

798 REN SALE 

806 PRINT “STOO ON HANO [S *5ST 

81@ GOSUB 1628 

8246 CLS RNOC8) 
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B38 SOUND 126,2:FOR TT=) TO J@+NEXT TT:S 
QUND 166,2-PRINT@ 192, TABC2Z) "STANO BY 
FOR SALES REPORT..-" 

646 GOSUB 1626 

B56 CLS RNOC8):FOR Y=1 TO 5@@:NEXT 

B66 A=]NT CRNOCGI4AST 70271663141 

676 [F MST GOTO 864 

BBE SOUND 266,2:SOUNG 266,2 

B96 PRINT@B 192, TABC2Z) “TOTAL 2ITHERS SO 
io..." 

966 ST=STA 

9146 PRINT@ 224, TABC2) “INCOME FROM SALE 
S: $" JAKSP 

926 CA=CAtrINTCAXKSP) 

336 GOSUB 1626 

34€@ RETURN 

956 REM PRINT QUT 

366 CLS 

976 IF CAtST<1 GOTO 134% 

986 IF CAtST> 999999 THEN 1646 

396 SOUND 154, 2:PRINT“FACTORY REPORT: WE 
EK" ;WE 

]666 PRINT “CAPITAL ON HAND [5 $"“ 5CA 
1614 PRINT “YOUR WAREHOUSE HOLOS* ;ST; “2! 
THERS..WORTH $°;ST&SP 

1626 PRINT “THEY SELL FOR #* 5SP3"EACH" 
1434 PRINT “AND COST $"3;CT;*EACH TO MAKE 
1646 PRINT “WORKFORCE [S";WF ;"PEOPLE" 
165@ PRINT “THEIR WAGES ARE $* 74G;"EACH" 
{G66 PRINF "THIS WEEKS WAGE BILL IS $"jH 
GAWF 
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18728 PRINT “EACH PERSON CAN MAKE" 3PD5 “2! 

THERS A WEEK" 

1888 PRINT “A TOTAL OUTPUT OF" SPDXxUF “Ss 

THERS" 

1898 RETURN 

1198 INPUT “HOW MANY 2ITHERS DO YOU WISH 
TO MAKE" 5 %K 

1119 IF MK=8 THEN RETURN 

1128 IF MK*XCTSCA THEN PRINT “NOT ENOUGH 
MONEY TO MAKE THAT MANY" :GOTO 1198 

1138 IF MK>POWF THEN PRINT "NOT ENOUGH 
EMPLOYEES TO MAKE THAT MANY" :GOTO 1188 
1198 CLSRNO(8I):-PRINT@ 192, “TARGET WEEK" 
WE FPIS* AK 2Z I THERS" 

1158 MK=ABSINK-CCRNOC2)-1I4*RNDC18I)) 
1168 GOSUB 1628 

11728 PRINT “TOTAL MADE IN WEEK" ;WE;"WAS" 
MK 

1188 ST=ST+MK 

1198 CA=INTCCA-CT#MKI 

1288 GOSUBi1622 

1218 RETURN 

1228 REM PEOPLE 

1238 INPUT "HOW MANY PEOPLE DO YOU WANT 
TO HIRE" 5A 

1248 WR=WF+A 

1258 CLSRNOC8I:-PRINT@ 192, TABCB) “TOTAL 
WORKFORCE IS“ ;WF 

1268 GOSUBiI63a 

1278 IF A@a GOTO 1358 

1288 PRINT@ 224; TABCLI "HOW MANY PEOPLE 
DO YOU WANT TO FIRE"; : INPUT A 
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129@ [fF A-@ GOTO 1358 

J2@@ IF ADSWF THEN GOTO 1286 

13214 A=INTCRNDCGIAAt I) 

132@ GOSUB 163@ 

133@ PRINT "UNIONS WILL ONLY ALLOW YOU T 

0 FIRE" jA 

1390 WF=Wtr-A 

1356 GSUB 1634 

1366 RETURN 

137@ REM BANKRUPTCY 

1386 L=G 

139@ CLSRNDCB8) -PRINT@ 192,TABC7] ° HR BAN 

KRUPT ##H" 

19@@ SOUND 75,3:7FOR C=1 TO 26@-NEXT C 
191@ CLS RNDCBI:2PRINT@ 192; TABC/) “HHHH 

HHHHHHHHHHPH' FOR Yr=1 TO J@@:NEXT YYT:L= 
L+1:1F L=l1@ THEN 149360 

192@ GOTO 1396 

193@ CLS @:GOSUB 1626 

199@ CLS RNOCBI:PRINT@ 192, "YOU KEPT TH 
E ACME ZITHER COMPANY RUNNING FOR" | WE 4 "W 
FEKS" -FOR FF=1 TO $@@@-:NEXT FF 

195@ CLS RNDLE):PRINT@ 192; “ENTER Y FOR 
ANOTHER TRY OR N TO END THE ORDEAL“ 
146@ AS=INKETS 

197@ IF A¢="" GOTO 14964 

198@ IF AS="T" THEN RUN 

149@ ENO 

1500 REM VARIABLES 

151@ CA=50G+RND(5G0) 

152@ ST=) G@+RND(5G0) 

1536 SP=)0+RNDC5} 

1546@ CT=2+RND{5) 
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1558 [F CToSP GOTO 1538 

1568 Wre=7+RNOC1@) 

1578 WG=)2+INTCRNDC@IACSPAS J) 

1588 PO=S+RNDCS) 

4598 WK=1 

1688 z=] 

161@ RETURN 

1620 FOR Y=! TO 20@@@ ?NEXT:RE TURN 

1638 FOR Y=1 TO 10@@:NEXT:RE TURN 

1648 C=a 

1658 CLS RNOC8):PRINTS 192, “H*kBKH YOUVE 
MADE A MILLION #4 #48°:FOR T=! TO 2a@:NE 
aT T 

1666 C=C+1 

16°@ S5=@ 

16868 S=RNO(50)+20@:SOQUNO $,1:55=S5+1 
1694@ [F $5=]@ GOTO 1714 

1788 GOTO 168a 

1714 PRINT@ 192, “HKHKHRHKHKHRAKHHKAKHAAE 

HEHAHKHKHK FOR YY=1 TO 10@:NERT VY:IF C 

=14@ GOTO 1458 

1728 GOTO )65a 


$7 
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SPACE GAMES: 


STAR SEARCH 
ASTEROID 

VENUS PROBE 
SPACE RESCUE 
MARTIAN MODULE 
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STAR SEARCH 


You and your trusty computer are on Star patrol in the vast 
regions of space. Alien beings are penetrating your section of 
the galaxy and it is your job to find thern and stop them, 


You have a limited amount of energy available and your 
computer will keep you informed of your energy level. Your 
space ship comes complete with long range and short range 
scanners to help you search. Shoit range scanners will tell 
you if alien ships are nearby but they won't tell you in what 
direction. The long range scanner will give you a positive or 
negative reading for a square two squares away from you in 
the specified direction. Both types of scanners use up 
precious energy. Long range scanning uses more energy 
than short range scanning. 


When you locate an alien ship it will appear on the screen as 
an X. When you have destroyed it, it will turn into a blue 
square. It is possible to fly your ship through a blue square. 
Any attempt to move your ship through a square occupied by 
an alien ship will resultin a collision. Your ship appears onthe 
screen as an asterisk. 


Your computer will give you a list of instructions telling you 
how to move your ship, uSe your Scanners and fire. Your 
short range scanners can’t be used when you are in the 
outside rows ofthe gnd, and tiying to do so will cause an FC 
error. 


Lines 1190 to 1280 decide which area of the galaxy you are 
in. Lines 1100 to 1180 print the galactic grid onto the screen. 
A$ is your input direction. Lines 440, 420, 480 and 490 use 
this to modify your location inthe galaxy. Lines 200 to370 are 
the lines which operate your scanners. Variable E is the 
amount of energy available. tis setin line 1330. Line 70 tests 
E to see if you have energy as the program runs througheach 
turn. 
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%#@ REM STAR SEARCH 

24 GOSUB 1368 

36 CLS 

4@ GOSUB 1298 

38 GOSUB i188 

64 PRINT@ 384, "REMAINING ENERGY’ 3 INTCE) 
7@ IF E<l THEN 788 

8@ IF AL>@ THEN PRINT “TALLY SAL 

94 PRINT@ 416, “1-SCAN 2-MOVE 3-FIRE"; 
148 [NPUT D 

1146 [F D=l1 THEN GOSUB 158 

124 [F 0=2 THEN GOSUB 36a 

134 [F O=3 THEN GOSUB S/H 

144 GOTO 6@ 

156 GOSUB] 6a 

16@ PRINT@448, "SCANNER :* 3 

176 PRINT@416, © SHORTCLI OR LONGC2)°; 
1846 [INPUT K 

196 E=E-144K:F=8 

266 [F K=2 THEN 258 

216 [F ACB+1,CJ=l OR ALBt1,C+1lJ=1 OR ALB 
.C+l j=l OR ACG-1,C)=1 OR ACB-),C-1J=1 TH 
EN F=1:GOTO 230 

226 [F ACB,C-1J=1 OR ALB+1,C-13=1 OR ACB 
-j),0+1J=1 THEN Fi 

23@ JF F=@ THEN PRINT "SCAN NEGATIVE "-GO 
TO 358 

24@ IF F=]1 THEN PRINT 2#3;" NEAR" :-GOTO 35 
a 

258 GOSUB1E8@ 

266 PRINT@416, “DIRECTION: N-1,5-2,E-3,W 
-4"3 


161 


27H 
28H 
238 
38H 
318 
32H 
33H 
348 
35H 
36 
37H 


394 
ang 
418 
42H 
434 
448 
454 
460 
472 
48H 
498 


318 
328 
33H 
348 
358 
368 
37H 
58H 
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INPUT N;3z=8 

IF N=] AND AC8-2;C)J=)] THEN 2= 
IF N=2 ANDO AC8+2,C)J=1 THEN 2 
IF N=3 ANO ACS;C+2)=) THEN 2 
IF N*4 AND AC8,C-2)=1 THEN @ 
PRINT@416, “SCANNER I5:"; 

IF ¥=1 FHEN PRINT "POSITIVE" 
IF ¥=@ THEN PRINE “NEGATIUYE" 
FOR T=1 TO 288 :NEXT :-RE TURN 
F=—-58@:AC8;CI=8:8(8,C)=8 
At=""sp$="r 

GOSUS 1888 

PRINT@416, “DIRECTION C(NrSJ" ; 

INPUT AS 

IF At=“N" THEN B=B--1 

IF A¢=*S" THEN 8-87) 

PRINT “LOCATION? “:6;7 "GC 

IFAS="N’ ORAT="S* THENS 1A 

GOSS 1H88 

PRINT@ 416; "“OIRECTION CE/WI*; 

INPUT BS 

IF 8#="F" THEN CrC+) 

IF @$="Li" THEN C=C-] 

PRINT “LOCATION? *3;B3" “3C 

FOR I=) TO 1:NEAT 

IF B(B;CIJ=) THEN 3920 

IF ACB;CJ=1 THEN 32a 
ACB;C)=2:6868; CI-2 

GOSUB 1188 

RE TURN 

G=R:Ag="* 

PRINT “DIRECTION OF FIRE N,S,E;0R Wl" 


| 


| 
i 
] 
1 


INPUT A®2IF At="N" THEN G=G- 1 
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6G@ IF A¢=“S" THEN G=G+1 

61@ F=C 

624 I[FAS="N’ORAS="S* THENSBE 

630 IF AS="E* JHEN FHF31 

64@ [F At="W" THEN F=F-] 

65@ I[FRNDC)1@)>4GOTO684 

66@ E=E-1a@ 

67@ IF ACG,FIS>2 THEN 7@68 

68@ PRINT@352, “YOU HIT THE “72% 

69@ AL=AL+1:A(G,F IJ=4:B{G,FI=4:GOTO 778 
20@ BCG, FIJ=3:PRINT@352, “YOU MISSED" 
21@ FOR G=!1 TO 16@@:NEXT 

220 PRINT@384, “THE “32$3" ARE SHOOTING 
BACK” 

238 FOR G=!1 TO 1@@@:NEXT 

4@ [F RNOC1@)>5 THEN 764 

238 PRINT@416, "THE ENEMY HAS HIT US2E": 
E=E-)@8%RNOCGI:GOTO 276 

766 PRINT@416, “THE “32%3" MISSED US22" 
778 FOR [=1 TO 1@@@:NEXT:GOSUB )14G@:RETL 
RN 

28@ CLS:FOR OO=!1 TO 1@@:NEXT -PRINT@352; 
“ENERGY BANKS EXHAUSTED" 

29@ PRINT@384, “TOU KILLED’ jAL3:1IF ALS] 
THEN PRINT "ALIENS" ELSE PRINT "ALIEN" 
846 GOSUB1GSE 

8)@ PRINT@416;, "ON THIS MISION YOUR COMM 
AND RATING IS* :1@@@4CAL/’87:FOR OD=1 
TO 15@@ 2:NEXT 

82@ FOR T=1@ TO 1@@ STEP 5 

83@ SOLND T,1 

84@ FOR (D=1 TO T7186 

85@ NEXT? NE AT 
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884 
$70 
33a 
894 
4a 
9i@ 
924 
R SH 
th aa 
934 
944 


954 
364 
374 
924 
994 
140a@ 
1414 
1426 
143@ 
1444 
1@5@ 
}@64 
1474 
1424 


1494 
1144 
1114 
1120 
113a 
1144 
“G 

115@ 
1164 


FOR NN=! TO 8 


CLS NN 

FOR OB=] TG 25-NEXT OD 
SOUND 244, } 

NEXT NN 


CLS @:G60TO 314 
FOR DO=l TO S@G:fLS:PRINT@ 192, "YOU 
IP HAS COLLIDED WITH A “ 32$;" SH 


FOR ®XX=) TD 15@0@>NE AT 
PRINT TABCS) “YOUR SHIP HAS EXPLODED 


FOR DO=]1 TO S@@:NERT 
PLES 
PMNODE 4,1 

SCREEN 1:1 
FOR RR=1 TO 15@ STEP 1a 
CIRCLE £128,92),&R 

NEST RR 

FOR 35-1 TO 1@@ STEP !@ 
SGUND SS; 1-NEA[ 

FOR SS=3@ TO 1 STEP -1@ 
SOUHD 35, 1éNEAT 

FOR OD=1 (2 14@4@:NEAT 


END 
PRINT@415;° 
RETURN 

CLS 


FOR O=1 JO 14 

PRINETAB CH) 

FOR P=1 Th 14 

IF BiG,;P3=8 THEN PRINT CHRS{(@46);* 


[F 6(G,P3-2 THEN PRINT “X"3" "3 
If 8CO,P1=3 THEN PRINT "M5" "5 
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117@ 


) 

1168 
3136 
1208 
1218 
12208 
ae 

123 
Wo": 
1246 


1258 
ON" 

1268 
1278 
1286 
123@ 
13 4@ 


IF @CO,PI=4 THEN PRINT CHR#C175);" 


NEXT? PRINT tNEAT 

G=BAC-PRINI@ 352; “FOSITION:" 5 

IF @<)@ THEN PRINT ™ RIGEL"| 

IF §>3 ANDO O<2@ THEN PRINT “" SIRIUS 


IF @?19 ANU Q@<34 THEN PRINT “ ALTA! 
IF @?29 AND 8<S@ THEN PRINT “ CANOP 
i+ G°49 ANG Q<¢?@ THEN PRINT “ VEGA" 
iF G69 ANO G¢3S@ THEN PRINT " PROCT 
iF G89 TREN FRINT " ALOERBARAN" ; 
PRINT * SEP TOR*3B3C 

RETURN 


O1ff A€ig,16),6618,18} 
FOR A=l TO 15-X=RNGOIBI *Y=RNDC1GI:4 


C%> TI=13NEAT 


1318 
1326 
1330 
1346 
J35@ 
1360 
1376 
13868 


B=9 :C=5:7AC2, CJ=2:8(B; CI=2 :AL=6 
2$="RUSOIRAN “ 

E=1234 

SOUND 175, 1 

RETURN 

CLS RNOC8) 

FOR T=2 TO 14 

PRINT® !192, “AkAIRKALAL STAR SEARCH 


KAKKAKAKAK" 


1336 


SOUND #*25;1 
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1486 FOR DD=1] TO 14aa/7T 

1418 NEXT 

1426 PRINT@ 192," XXX KKKKKKKKKKKKRERK EEE 
SS SS 6 4 6 6 3 

1436 FOR OD=1 TO S@:NEXT 

144@ NEXT T 

1458 RETURN 
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ASTEROID 


You are the administrator of a mining colony which has been 
established on an asteroid deep in the asteroid belt. Your 
isolated colony survives by mining valuable copper ore, now 
very rare on earth, and trading it for food, oxygen and essen- 
tial equipment. 


You must manage the affairs of the colony so that it produces 


. ms 





enough ore to survive, but you must not waste your scarce 
resources at the same time. 


You will be given a computer printout telling you all the 


information you need, including the state of your food stocks, 
amount of oxygen on hand, and cost of maintaining the 
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colony per year and arare raid by asteroid bandits. By mining 


the optimum amount of ore you should be able to buy suffi- 
cient food and oxygen for your colony to survive. 


Apart from the attacks by asteroid bandits, the game isn't 
based on random factors or chance. It will involve a great 
deal of management skill to survive for any length of time. 
Fachtime the game is run the price of copper ore, foodunits, 
oxygen units and the annual maintenance cost will be differ- 
ent. 


1€@ REM ASTEROIO 

26 GOSUB $526 

36 CLS 

4@ K=9 

58 GOSUB 78a 

6G TR=TR+) 

26 FRK=FK+FKe 0 2+RNDCI8I))-FKeC3+RNDOI5)] 
8@ GOTD 388 

9@ GOSUB 1498 

166 FOR QQ=706 TO 203+RNO(4):SGUND GOO, ): 
NEXT OO 

J]@ PRINT@6, CHR¢CIS1I:“computers report" 
i(CHRS()86) 

1276 IF OX¢OD4FK GOTO 12730 

13@ IF FOCFEXFK THEN ]26¢ 

146 IF CAS! THEN 1296 

215@ IF FK¢<2 THEN J326 

J6@ IF FK<J3 THEN PRINT "WARNING - POPUL 
ATION 38", "NEARING EXTINCTION" 

17@ JF OX<2k0DHFK THEN PRINT “WARNING - 
OXTGEN SUPPLY IS LOW" 

18@ IF FOC2KFEXFK THEN PRIN? “WARNING - 
FOOD STOCKS LOW" 
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196 IF CASH<2@6@ THEN PRINT “WARNING - 1 
ONEY RUNNING LOW" 

266 PRINT"THERE ARE"S(NTCFKI;"PEQPLE ON 
216 PRINT "THE ASTEROID IN YEAR"; TR 
226 PRINT 

236 GOSUB 1996 

246 PRINT"MONEY CREOIT IS $";I)NTCCA) 

256 GOSUB 1996 

268 PRINT 

278 PRINT"ANNUAL MAINTENANCE $" jRP 
288 GOSUB 1996 

296 PRINT 

366 PRINT"OXYGEN TANKS HOLD" ;INT£O%) ; “UN 
ea 

316 PRINT"OXYGEN COSTS @";0C;*PER UNIT” 
326 PRINT“ OXYGEN NEED PER PERSON: 300 
336 GOSUB 1496 

398 PRINT 

356 PRINT"FOOD STOCKS STAND AT"SFO 

366 GOSUe 14396 

378 RETURN 

366 GOSUE 96 

396 PRINT +?+PRINT 

486 PRINT"COPPER ORE - HOW MANY TONS WIL 
tL YOU AINE ANO SELL" 

418 PRINT “THEY USE UP" ;AC3”UNITS OF” 
426 PRINT “OXYGEN AND SELL FOR $" AP 

438 INPUT B 

498 PRINT 

456 IF BeAC> OX THEN PRINT "NOT ENOUGH OX 
YGEN" 

466 IF BAC? OX THEN 4936 
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474 CA=CAtBKAC 
48a CLS 

49@ GOSS 9a 

5Q@ PRINT ‘PRINT 

51@ PRINT "FOOD COSTS $"jFC3"PER UNIT" 
52@ PRINT "EACH PERSON NEEOS" 3FE;"FOOO WU 
NITS" 

53@ PRINT "$";INTCFCXFE)}"EACH, $" 5 INTCF 
KKFC¥FE} } "FOR STATION" 

54@ PRINT "THIS WILl LAST" ;INTCE D/C FERFK 
J};"YEARS AT THE PRESENT POPULATION" 
SSG PRINT :PRINT 

S6G PRINT "HOW MANY FOOD UNITS WILL YOU 
BLY ?" 

$7@ INPUT C 

S8G PRINT 

S9@ IF CKFC>CA THEN PRINT "NOT ENOUGH MO 
NEY" 

BGG IF CkFC?CA THEN 576 

B1@ FO=FO+C.#FC 

82@ CA=CA-CAFC 

63 CLS 

644 GOSUB 396 

B54 PRINT "HOW MUCH OXYGEN WILL YOU BuY? 
664 PRINT "CURRENT STOCKS WILL LAST FOR" 
SINTCOX/LOD&FK 13" YEARS AT THE PRESENT 
POPLILATION" 

62@ INPUT O 

68G PRINT 

69G IF DkKOC>CA THEN PRINT"NOT ENOUGH MON 
EY" 

7@@ 1F DkOC>CA THEN 674 
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716 
726 
736 
7468 
73568 
? 668 
778 
764 
7368 
684 
B18 
626 
634 
646 
656 
B64 
678 
Be 
696 
366 
316 
3268 
9336 
346 
956 
9668 
SHI 
978 
Gs" 
3986 
OTs" 
9948 


CLS 

IF RNOCSJ=2 GOSUB 926 

FO=FO-FOXFE 

CAa=CA-RP-O*OL 

OX=O%+0-FK*O0 

GOSUB 19946:G0SUB 14936 

GOTO 66 

YReRNDCS) 

AS=""the space colony has perished" 
FK=BG@+RND(L 48) 
CA=INT(C27*17B6+RND[ BABI) /RNDL3)} 
FC=RNDC7) 

AC=)+RNO(3) 

FD=2668+RND(586) 

O*=2666-RNDL 15906) 

OC=RNDC7) 

AP=38*RNDLAC) 

RP=Z26@6+RND(466) 

FE=t+RNDCS) 

OD=2+RNO(3) 

RETURN 

CLS 

J=RNDL GI 

GOSUB 1496 

PRINT "THE COLONY WAS ATTACKED BY" 
IF J=1 THEN PRINT “A FLEET OF SYRIAN 
PS? 

Tf J=2 THEN PRINT "RENEGADE EARTHLIN 


IF J=3 THEN PRINT "MARTIAN SPACE PEL 


IF J=4 THEN PRINT "YYRILLIERX OUTWORL 


DERS" 
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1808 


IF J=S THEN PRINT "A LONE SHIP; AFP 


ARENTLY UNDER";,; “RO8QT CONTROL” 


1018 
CORT 
1828 
18630 
1040 
1850 
1860 
1070 
d* 

18B8e 
J€9@ 
1188 
1118 
1128 
1130 


BY" sl 


1148 
1158 
1168 
1178 
1188 
1198 
1208 
1210 
1220 
1230 
1240 


R° STR 


1250 
1260 


[F J=6 THEN PRINT “A PARRALEXIAN ES 
VESSEL” 

PR INT 

GOSUe 1498 

PRINT 

PRINT 

Z=14INTCFK/CRNDC1I5I)+¢4) 3) 

PRINT “THERE WERE” j2;" peopla kille 


X=250+RNDC2 50) 

GOSLB 1498 

PRINT “DAMAGE WAS $* jx 

T=RNO (308) 

W=RNDC 38) 

PRINT “AND FOOD STOCKS HAVE FALLEN 


FO=FD-W:IF FD<@ THEN FD=FO+W 
FK=F K-2 

O*=OX-T 

CA=CA-X 

GOSUB 1498 

PRINT“PRESS enter” 

INPUT UF 

Cus 

RETURN 

PRINT AF 

PRINT “YOU RAN OUT OF OXYGEN IN YEA 


GOTO 1458 
PRINT A 
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127@ PRINT “FOOD SUPPLIES WERE EXHAUSTEO 
IN YEAR" 3; YR 

1266 GOTO 1454 

1298 PRINT As 

J30@ PRINT “THE TREASURY RAN ORY DURING 

TEAR" 5 TR 

1314 GOTO 1458 

1326 PRINT “YOUR POPULATION HAS FALLEN" 
1338 FK=RNDOC 26) 

1346 PRINT“ TO"SFK5*. GO YOU WANT TO" 

1358 CA=RNOC 388) 

1364 PRINT “COMMIT SUICIOE PAINLESSLY " 
1378 PRINT “NOW C1] OR AWAIT A SAD AND" 
138@ PRINT "LINGERING DEATH C237" 

139@ [NPUT B 

1466 CLS 

141@ IF B=1 THEN 144@ 

1426 PRINT “I HOPE YOU HAUE CHOSEN WELL" 
1434 GOTO 68 

144@ PRINT@ 264, "“geadbye" 

1458 FORDD=1 TO 20@0-:NEXT:CLS @ 

1466 X=RNO(63) :Y#RNDC31)-2C=RNDIS) 

147@ SETCX,¥%,CIJ:SOUND 225, 1 

14646 GOTO 1468 

14356 FOR Q0=1 TO 34G:NEXT QO 

15686 SS=RNDC58)+280:SOUND 55, ] 

1518 RETURN 

1526 CLS @ 

1536 FOR JJ=#] TO 7S 

1546 X=RNOC 63) > Y=RNDOC31) :-C=RNOCBI 

15586 SETCX,7,C) 

1566 NEXT J: 

1576 X=1:7=RNDCIG)4+1@:C=5 
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1584 
1398 
1686 
1616 
1626 
1634 
16448 
1656 
1668 
*ea" 
1678 
1688 
1698 
1788 
1716 
1726 
1738 
17468 
1736 


SETCA, 7,0) 
SET (X¢1,7,C) 
RESETIX, VI 
SOUND 175,) 
A=} 


IF x=63 THEN 1650 


GOTO 1598 
CLS RNDC8) 


PRINT@ 192, TABCE) 


FOR JJ=) TO 6 


"*###K ASTEROID * 


FOR SS=288 TO 250 STEP 16 


SOUND $5, 1 
NEAT 


FOR S$S=296 TO 198 STEP -16 


SOUND SS, ] 
NEXT 

NEXT 
RETU&N 
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VENUS PROBE 


You are in command of an exploration team attempting to 
land on the planet Venus. You must pilot your landing craft 
through thick fog and erratic winds to a safe landing on the 
surface. 


By using the graphic display of your radar screen and the 
information provided by your computer you must apply the 
correct amount of thrust to touch down on Venus. The final 
landing speed of yourcraft must be less than ten. When your 
descent gets below 100 meters the radar screen changes to 
give you a larger scale for the final approach. 


A good landing is rewarded witha points score basedon your 
finaltouch-down speed, and the amount of fuel you have left. 
A bad landing will result in a crater on the surface of Venus. 
The size of the crater is related to your final speed. 


The loop from line 220 controls the printout of your ship on the 
screen. Your ship is printed lower and lower on the screen, as 
your velocity (V) and your height (H) change. Variable K 
controls the distance across the screen. As K is altered your 
ship drifts left or right. K is altered in line 310. Line 290 
provides the two graphic characters that make up the image 
of your space ship. 


Line 30 sets up your initialfuel supply (F), your rate of fall (V) 
and your starting height (H). Lines 340 and 350 provide the 
computer read out on your screen and ask for the amount of 
thrust you wish to use (T). 


Lines 370 to 390 act on this input making alterations to 
speed, fuel and height. Lines 400 to 420 test these variables 
and decide if you are still in flight or if you have reached the 
ground. 
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The 
ersi 


you 
bad 


ta 
26 
36 
4B 
38 
68 
78 


radar printout for your descent below one hundred met- 
s provided by lines 440 to 530, Lines 540to 580 tall you if 
have touched down safely, and lines 590 to 740 give the 
news if you haven't. 


REM VENUS PROBE 

ELS 

K=2 7F=208 :U=)57H=588 72=H 
PMODE };1 

PCLS 

SCREEN 151 

FOR RADIUS=] TO 166 STEP 28 


86 SOUND RADIUS; 1 

98 CIRCLEC128,96);RADIUS 

168 NEXT RADIUS 

114 PAINT (8,6),7,86 

128 FOR C=258@ TO 255 STEP .25:SOUND C,)]: 
NE XT 

138 CLS RNDCBI:2PRINT@ 192,TABCE) “HH VE 
NUS PROBE ##&#" 

148 FOR T= 1 7T0 18 

158 PRINT #192, TABCE) s*RRRAKHKHAKAKKKKKK 
KA" 

168 FOR Q=44T TO 44T#18 STEP 2:SOUND Q;) 
'NE XT 

176 PRINT @192,TASBCGI;"ek4# VENUS PROBE # 
aE" 

188 FOR @=255 TO 238 STEP -T:SOUND @,1:N 
EXT :NEXT 

NG = | 2 Ea Be 

264 IF H¢99 THEN CLS:GOTO 446 


218 JF Ul THEN CLS 
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220 PRINT@ @ " " 

23@ FOR J=2 TO C646-2)756 

246 PRINT 

25@ NEXT J 

266 FOR J=1 TO K 

270 PRINT " “; 

26@ NEXT 4 

Z29@ PRINT CHR$C 137) ;CHR$( 134) 

346 PRINT@® 364, "#-——--&" 

318 K=K+RNDBC3I-RNDC 23 

BLS ANB eee tot SBN tH tet oy Se 
HHA FE et et OMIT Lise Bae. 
338 2-H 

346 PRINT@ 384, "FUEL: "3; “HEIGHT: "3H 
356 PRINT “RATE GF FALL? "303" “32 INPUT" 
THRUS TY 3T 

250 -—SGHHe-Lts¢474+ omit mE Bio 
378 U=0+5-T+RNDOC3) 

38Q H=H-U-RNOC2)-1 

396 F=F-ABS(T) 

406 JF F<l1 THEN 596 

41@ ]F H)18 THEN 266 

426 IF Go1@ THEN S9@ 

430 GOTO 54GB 

44@ HE=C1GG-HI7721F HEX 12 THEN HE=3 
45@ FOR J=3 TO HE 

46@ PRINT 

47@ NERT J 

486 FOR J-1 TO K 

496 PRINT " "3; 

S@G NEAT J 

S1@ PRINT CHRS$C 137) ;CHR$(139) 

S20 PRINT® 369, "#----#*“ 
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52@ GOTO 31@ 

54@ FOR C=1 TO 8:CLS(C):FOR G=1 TOZ@@:NE 
XT G:NEXT C 

53@ PRINT@ 192,TABC4) “## SUCCESSFUL LAN 
O]NG #H" 

S6@ PLAY “LIG;GiF;G;O0;E;O0;C;A;CjO;GiF" 
970 PRINT @ 224,TABC6) "# SCORING" CF-VI4 
1@@+RNDC147) ;"POINTS #" 

SB@ END 

593@ CLSC@)J:FOR C=1 TO ]@@-NEXT-:CLS(4):FO 
R C=1 TO 1@@:NEXT:CLSC@IJ:FOR C=1 TO 188: 
NEXT :CLSC4) 

6@@ FOR M=1 TO 4:CLS 

61@ PRINT@® 192, TABC6} “### CRASH LANDIN 
G HHH" 

62@ SOUND 58,7 

620 FOR P=1 TO 268:NEXT 

64@ CLS:FOR D=l1 TO 268:NEXT G 

65@ NEXT M 

666 FRINT@ 192, TABC6) “### CRASH LANO]N 
G HHH" 

670 PRINT@ 224, “LEAVING A CRATER" ;ABSC 
Uk] | "METERS OEEP* 

68@ SOUNO 5@,2:SOUNO 23,;2:SOUND 508,2:SO0U 
NO 25,2:SOUND 56,4 

69@ IF F¢<2 THEN PRINT@® 264, “FUEL EXHAUS 
TEO" 

70@ FOR X=3 TO 1 STEP -.S 

716 FOR T=230 TO 255 STEP X 

726 SOUND 7,1:NEXT +NEXT 

236 FOR T=1 TO 1@:SOUND RNOCZ@)+2235, 1:NE 
aT 

74@ GOTO 74a 
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SPACE RESCUE 


Anastronaut is missing on a Space walk. You have been sent 
into orbitin the Shuttle to find and rescue him. Missioncontrol 
has narrowed his location down to aneight by eight kilometer 
cube of space. You must search this area of space and find 
the astronaut before his air runs out. You have just ten hours 
to find him. 


The computer-controlled radar on board the shuttle will help 
you to find him. Unfortunately the computer has been prog- 
rammed in a hurry. The best it can do for you is to tell you the 
general direction of the lost astronaut along the three axes of 
travel. 


The computer will ask you what area cf the cube you wish to 
search. Enter three numbers from one to eight separated by 
commas. The computer will look at this area and tell you that 
you have either found the lost astronaut or t will give you 
clues to help you look again. 


Line 260 accepts your co-ordinates (D,E,F). Line 290 checks 
these against the location of the astronaut (A,B,C) to see if 
you have found him. Ifyou havent, lines 330 to 370 check to 
see where the astronaut is in relationte you and then provide 
the clues. Variable J counts the number of turns and keeps 
track of the astronaut’s oxygen supply by using a loop. 


1d REM SPACE RESCUE 

28 CLS 

38 FOR SS=1 TO 2088 STEP i@ 
4Q SOUND SS, 1:NEXT 

3B FOR SS=2208 TO 28 STEP -18 
58 SOUND SS; 1 :NEXT 
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28 CLS RNDCB) 
84 CC=8 
94 PRINT@ 192, TABCS) “##H SPACE RESCUE 


HH" 


144 
114 
428 
13 
148 
154 
164 
4? 
18@ 


SOUND 2,3 

FOR OD=)] TO 1@@:NEXT 

PRINT@® 392, " 
FOR OO=) TO 5@ -NEXT 

Cc=CC+) 

IF CC=6 GOTO 178 

GOTO 36 

CLS RNDC8) 

PRINT@® 192, “YOU HAVE 1@ HOURS TO FI 


NDB AN ASTRONAUT LOST IN AN 8 KILOMETE 
R CUBE OF SPACE" 


198 
248 
218 
228 
236 
248 
258 

TQ 
264 
PUT 
278 
288 
234 
388 
RE" 
31 


FOR DD=) TO 15@@:NEXT 

RAFRNDCS I 

B=RNDCB J 

C=RNDCBI 

FOR J=! TO 16 

CLSRND C8) 

FRINT® 192, TABC3I°WHERE DO YOU WISH 
SEARCH" 

PRINT TABLBI" ENTER CO-ORDINATES"; 7IN 
D,E,F 

CLS 

SOUND 225,2 

[IF A=O0 AND B=E AND C=F THEN 528 
PRINT@ 32, TABC6) "ASTRONAUT NOT THE 


PRINT@ 64, TABC4) “HOURS OF AIR RENA 


INING :"518-J 


328 


PRINT@® 144, "NQUE:" 
120 


334 
344 
334 
364 
370 
380 


IF ASO THEN PRINT@ 244; “UP 

IF ASD THEN PRINT 2a4, “DOWN “ 

JF BOE THEN PRINT® 268, “ACROSS “ 

IF CF THEN PRINT@ 332; "FORWARDS" 
IF C<F THEN PRINT@ 332; “BACKWARDS” 
JF J=3 THEN PRINT "DANGER ASTRONAUTS 


DEATH JNI{JNENT" 


330 
4aq 
414 
424 
434 
44q 
45a 
460 
478 
48 
aga 
5aq 
51a 
52a 
53a 
54q 
554 
56a 
574 


FOR Juve] TO 5 

SQUND 5,1 

FOR OD=1 TO S5@:NEAKT 

SQ.IND 14,) 

NEAT J 

FOR OD=1 TO 1@@:NEAT 

NEAT J 

CLS RNOC3) 

PRINT@® 164, TABC6) "fOU HAVE FAILED" 
PRINT TABC4J"ASTRONAUT OUT 2 AIR" 
PRINT TASC9) “ASTRONAUT WAS AT"ASESC 
FOR OO=! TO 25@@:NEAT 

GOTO 64a 

CLS RNDC3) 

FOR SS=14 TO 146 STEP 14 

SOUND $5, 1°*NEAT 

FOR SS=94@ TO 14 STEP -10 

SOUND SS; 12NE&XT 

PRINT@® 192, TABC2) “YOU HAVE FOUND T 


HE ASTRONALT " 


98@ PRINT TASC2) "HE HAD "32@-J 5" HOURS 
OF ALE: LEF-ES 

9234 FOR OD=1 TO 24GQ:NEAT 

644 CLS RNOC#) 

614 PRINT@ 192, "00 YOiJ WISH TO TRY AGAI 


N CY¥/N)" 5: INPUT HF 
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628 
628 
648 
658 
66a 
67 
6ea 
698 
? BG 
718 
220 
738 


IF H$="¥" THEN 186 
CLS @ 
X=RNOC3BI+15 
=RNDC2QI1+5 
C=RNDC8) 
SS=RND(581+208 
SETCX,Y,C) 
SETCX, Y+1,€2 
SETCX*1;7,C) 
SEILAtl T4150) 
SOUND SS5;1 
GOTO 648 
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MARTIAN MODULE 


Do you have the skill to become the first Spaceperson to land 
a spacecraft on the surface of Mars? Many have tried, none 
have succeeded. 


Your on-board computer will keep you informed of your prog- 
ress. It will monitor your descent and provide you with details 
of fuel remaining, your height above the surface, rate of fall 
and your time in flight. The computer will also warn you if the 
unthinkable should happen, and a problem develop. By 
entering the amount of thrust required you can manoeuvre 
your craft down to a soft landing. However, if you misjudge 
your rate of fall 


The range ofthrust available is from —50to 50. The negative 
numbers provide thrust against gravity. The positive num- 
bers provide thrust toward the surface. 


The progress uses CIRCLE and PAINT to show you the 
propased landing site (ines 100-120), Lines 130 to 170 
provide a sound loop to give suitable sound effects at the 
beginning of the game. Variable F is the amount of energy 
available for thrust. The value of F is decided in line 220. 


Variable B controls the malfunction-routine. If B ceases to 
equal one, your craft develops a fault. This occurs in line 
1070 and is tested in line 560. Variable Q controls the air 
supply in the craft. This is altered in line 1040 and tested in 
line 530. T is the time the flight has been in progress. T is 
incremented byE, thelengthoftime thrust isusedeach turn. 


18 REM MARTIAN MODULE 
28 CLS 
30 M=8 
48 T=0 
38 S=8 
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64 H=2G0G 

7@ PMODE 131 
@@ PCLSC1) 

3@ SCREEN 1,4 


1@@ 
118 
128 
136 
144 
158 
164 
178 
18@ 
138 
LE. 


CIRCLE €126, 923,75 


PAINT (6;07,3,4 

PAINT C128,92),4,4 

C=a 

S=RNOC5G3+20G 

SOUND S; 1 

C=C+] 

IF C=2@ THEN 1398 

GOTO 146 

PRINT@ 33; “WELCOME TO MARTIAN MOOU 
YOUR MISSION: TO PILOT THE FIRST 


MARS LANDING CRAFT." 


208 
21@ 
228 
238 
24@ 
258 
266 
27@ 
260 
2398 
30G 
CE” 
314 
320 
336 
346 


PRINT “GOOO LUCK":GOSUB 1168 
CLS:PRINT@ 38, "MARTIAN MODULE* 
F=600/RNOC 3) 

Q=-1? 

B=] 

PRINT 

PRINT 

SOUND 2066,1:SOUND 2@0,1:SOUNO 20@;1 
GOTO 53 

PRINT “POSITVE NOS. TOWAROS SURFACE" 
PRINT "NEGATIVE NOS. AWAY FROM SURFA 
INPUT 2 

[F @<-5@ OR #2506 THEN 6G 

[INPUT “FOR HOW LONG CSECONDS 3"j5E 

CLS 
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354 
364 
37 
384 
394 
404 
41a 
424 
43a 
444 
454 
464 
474 
4384 
494 
304 
314 


324 
334 
344 


PRINT@ 145, “THRUST: "32 

PRINT@ 169, "FOR"S3E3“SECONDS* 

GOSUB 1434 

CLS 

T=T+E 

S=St1lQ+3xEaC C241 7B) 

JF 2=@ THEN GOTO 434 

F=F -3XEX*ABSCZ4RNDOZI +1) 
H=H-EXCS+RNDC5) I 

IF H<1@@ AND H>=@ AND S<4@ THEN 694 
IF H<=@ THEN 62a 

IF F<@ THEN 624 

X=RNDCIG) +1 

JF *=5 AND MNKd2 GOSUB 73a 

PRINT 

SOUND 284, 1:SOUND 220,1:SOUND 244,;1 
PRINT "## HEJGHT ABOVE SURFACE " j;H"## 


[F @O-1? THEN G-Q@-RNDC16)-1 
[F @<@ AND 6>-17 THEN 624 
JF Q¢5-17 THEN PRINT "##A]R LEFT:" ;G@ 


_ HH fd 


354 
364 


PRINT "## RATE OF FALL :"75;"##* 
[F 8421 THEN PRINT "#8 WARNING ##.., 


THRUST ERRATIC" 


374 
38a 
394 
64a 
61a 
62a 


PRINT “## ENERGY LEFT: "33° ##" 

PRINT "#& TIME IN FLIGHT =" T 3" ##" 
PRINT 

PRINT "AMOUNT OF THRUST (-5@ TO 5a)” 


GOTO 294 
CLS:PRINT@ 170, “ANAC rashr+hr" 
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630 IF O<@ AND Q>-17 THEN PRINT@ 202, "A 
IR SUPPLY EXHAUSTED" 
640 IF F<Q@ THEN PRINT@ 232, "ENERGY EXHA 


LISTED" 

658 FOR W=1 TO 188 STEP 18:SOUND W; 1:NEX 
t 

660 FOR W=38 TO 1 STEP -10:SOUND W;1‘!NEX 
T 


678 PRINT@ 264; "HIT SURFACE AT” ;ABS[S) 
680 ENO 

6328 CLS:PRINT@ 164,"<<<SUCCESSFULL LANOI 
NG>>>" 

7BQ PRINT@ 254; "FINAL VELOCITY:" ;ABS(S) 
710 FOR W=18 TO 248 STEP 20:SOUND W,1:NE 
XT?FOR W=2280 TO 18 STEP -2@:SOUND WW, 1:NE 
XT ENO 

720 RETURN 

yao. ‘CES 

740 M=MN+] 

7B FOR VU=1 TO 4 

760 PRINT 

770 NEXT V 

780 UFRNOC10) 

730 FOR V=l TO4 

8BQ PRINT@ 71, "kX DANGER Xxx" 

810 PRINT@ 135, "MISSION CONTROL" 

820 PRINT@ 198, "WE HAVE A PROBLEM" 

838 PRINT@ 263, "“#k%* DANGER xk*" 

848 GOSUB 1832 

858 CLS 

860 C=4 

872 PRINT@ 238; "HHH MALFUNCTION ###" 
888 C=Crl 
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8948 
aaa 
318 
328 
338 
348 
358 
362 
OETA 
378 
388 
338 
18288 
1@1@ 
GHT" 
18228 
1438 
1848 
1458 
Ex 
1@628 
1872 
1 a8 
1438 
11@a 


SOUND 5@,5;:FOR *=1 TO 20@:NEXT * 
PRINTS 230, “#HHHHHHHHHHHHHHHHHHH" 
SOUND 5@;,5 
FOR A*=1 TO 2aQ:NEAT 

IF €=4 GOTO 950 
GOTO 87a 
CLs 
PRINT@ 97, "USE ACCESS CODE" iU;"FOR 
ILS" 

INPUT WU 
CLS 
JF Usd THEN 628 

ON [NT C2#RNDCQII+)GOSUB 1048, 1472 
INPUT “PRESS ENTER 70 RETURN TO FLI 
iVF 

cs 

FOR *=1 TO )@@@+NEXT+*RETURN 
G=I[NTC134RNDL0))+101 

PRINT@ 1396, “OXYGEN METER UNRELIABL 


RETURN 
B=B+RNOC3I+1 
PRINT@ 136; “THRUST CONTROL ERRATIC 


RETURN 
FOR Y=1 TO 28@@:NEXT =RETURN 
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BOARD GAMES: 


CHINESE CHESS 
(REVERSI/OTHELLO) 
CHECKERBOARD NIM 
CHECKERS 
HAMADRY AD 


CHINESE CHESS 
(OTHELLO/REVERS)I) 


This game is based onan old board game popular inthe latter 
half of the last century. 


It is played on an eight by eight grid. The game begins with 
the centre four locations of the grid being occupied by two of 
your piaying pieces (white) and two of the computers playing 
pieces (black). Each playertakes turns placing a piece on the 
board adjacent to one of his opponent's pieces, Any of your 
opponent’s pieces between the piece you have just placed, 
andanother of your pieces are captured. They are left onthe 
board but become yours. 


‘It 


SUIk 
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The game ends when all the grid positions are occupied or 
when neither player is able to move. The winner is the player 
with the most pieces on the board. 


At the beginning of the game the computer will ask you if you 
wish to have the first move. To place a playing piece on the 
board enter its required location starting with the number 
down the side of the grid followed by the horizontal location. 
Enter the numbers as a two-digit figure, for example 45. 


The computer will keep track of the score and automatically 
replace captured pieces with the opponent's pieces. You will 
find that your computer plays this game slowly but it will play 
very well. In fact, you will find it very difficult to win a game. 


Lines 750to 890 use PRINT @ to print up the grid pattern and 
keep it in place during the course of the game. The lines 320 
to 630 contain the logic for the computer's moves. Lines 640 
to 720 control your moves. Lines 900 to 1020 act on the 
moves and adjust the various values used in the printout. 


18 REM. CHINESE CHESS 

26 CES 

36 CC=@ 

4@ SS=RNDC26)+175:SOUND SS; RNDC2) 
36 CC=CC+1 

66 1F CC=6 THEN 86 

76 GOTO 48 

86 GOSUB 1136 

38 CLS 

186 CC=6 

116 SS=RND(25) +158 :7TT=RNDC2 J 
126 SOUND SS;TT 

130 CC=CCri:1IF Cl=15 GOTO 156 
1496 GOTO 116 
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158 *=ASCCCHREC 128) )+-0=ASC CCHRE(287 J) 
16@ DIM ACIG,18) 

J7@ FOR B=) TO 18 

186 FOR C=i TO 18 

19@ [F B<?1 AND C<>1 AND Bto1@ AND CK<> 1G 
THEN ACB,CIJ=ASCE’. I 

208 NEXT C 

214 NEXT B 

224 ACS, 5)=% 

238 AC6,6]=% 

244 AC6, 5)=0 

258 ACS,6)=0 


268 P= 

27@ PRINT@!96, "00 YOU WISH TO GO FIRST" 
288 PRINT@233, “TES-1 NO-2" 

298 SOUND2Q@@,1:PRINT@268," "3: INPUT W:CL 
$ 


346 GOSUB 748 

31@ IF W=] THEN 648 

324 SOUNDIG@,1:FPRINT@459,'NY MOVE" 
338 S=0 

34 T= 

358 H=G 

366 FOR A=z2 TO 39 

376 FOR B=2 T0 39 

38@ [F ACA,BI<?46 THEN 586 
398 GG 

4@@ FOR C=-) TO 1 

41@ FOR D=--) TO l 

420 K=@:F=A:G=B 

43@ IF ACF+eC, G+0I]2>5 THEN 468 
446 K=K+i :F=F+C :6=G+D 

456 GOTO 436 
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46@ IF ACF+C,6+0)¢>T THEN 488 

470 Q=0+K 

486 NEXT DO 

49@ NEXT C 

S@@ IF A=2 OR A=9 THEN G=042 

S516 IF B=2 OR B=9 THEN G=Qk2 

520 [F A=3 OR A=8 THEN G=G72 

S30 IF B=3 OR 6=8 THEN O=G972 

54@ IF (A=? OR A=9) AND (B=3 OR B=8} THE 

N Q@=072 

5586 IF (A=3 OR A=B) ANO (B=2 OR B=39) THE 
N QG=Q72 

S66 [IF Qc OR G=@ OR CRNOC1GI]>3 ANDO G=H) 
THEN 588 

§$7@ H=0:N=A!:N=B 

5B@ NEXT & 

S98 NEXT A 

6@@ [F H=@ AND R=@ THEN 1836 

616 IF H=@ THEN 638 

624 GOSUB 988 

63 GOSUB 748 

6¢@ SQUNO2@0.):PRINT@456," “3:INPbT “You 
R MOQUE* sR 

656 S=x 

666 T=0 

676 [F R=@ THEN 728 

666 [F R¢1} QR R>88 THEN 646 

696 N=INT(RZ1@}+1 

7@Q@ N=R-]GAINTCRZ1G1+) 

71@ GOSUB 386 

726 GOSUB 746 

738 GOTO 326 

746 C=@:H= 
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728 
768 
770 
7B 
798 
Baa 
814 
B28 
838 
84a 
85a 
B6a 
B7G 
BBG 
B94 
988 
918 
926 
9348 
944 
954 
968 
978 
988 
9948 
1488 
1416 
1426 
1438 
1646 
1456 
1668 
1476 


PRINT@ 5, "“X## CHINESE CHESS 48k" 
PRINT @76, "123456786" 
FOR B=2 TO 9 
PRINT TABCS) B-1; 
FOR G2 TO 9 
PRINT CHRSCACB,DI) 5 
IF ACB,;O0)=% THEN C=C+1 
IF ACB;0)=0 THEN H=H+l 
NEXT O 
PRINT B-] 
NEXT B 
PRINT TABCI2) “1239567 8" 
PRINT@419; "I HAVE" 5C 
PRINT@435,"° YOU HAVE"jH 
RETURN 
FOR C=-1 10 1 
FOR D=-1 TO 1 
="M:G=N 
IF ACF+C,G+D)4>S THEN 968 
F=F+C :G=G+0 
GOTO 936 
IF ACF+4C,Gt+tO)<>7T THEN 1816 
ACF ;GJ=T 
JF M=F AND N=G THEN 1414 
F=F-C:G=G-D 
GOTO 3978 
NEXT G!NEART C 
RETURN 
C=@6:H=4:FOR B=2 TO 9 
FOR O=2 10 9 
IF ACB;DJ=% THEN C=Cr+1 
IF ACB;DJ=0 THEN H=Ht1 
NEXTDO:NEXTB:CLS:PRINT@392," “3 
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1484 FOR F=2@@1T0254S TEPS :SOUNDF, 1 -NEXTF 
19494 IF C>H THEN PRINT "i won $C 3H 

1194 IF H>€ THEN PRINT “you won" JHE 
1119 IF H=C THEN FRINT “it is a draw";Cj 
H 

1124 END 

1134 CLS RNDES) 

11494 XxX=a 

1154 PRINT@ 192, TABiS] “#48 CHINESE CHE 
SS #x#"-+FOR CC=) JO 1@:NEXT CC:SOUND RNO 
(i9j+194, 1 

1164 PRINT@ 192, TABCS) “HRHKHKHKHAKHKH KE 
KHKHKH" FOR CO=) TO 1GG:NEXT CC 

117@ XX=XX+1:21F XX=1G THEN RETURN 

1184 GOTO 1154 

1194 RETURN 
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CHECKERBOARD NIM 


This program sets up a checkerboard and places a random 
number of playing pieces on the green squares. 


You and the computer then take turns removing pieces from 
the board. The one who is forced to take the last piece is the 
loser. 


Each game the computer will place a different number of 
pieces on the board and Set a different maximum number of 
pieces which may be removed at anyonetime. Thecornputer 
willdisplay on the screenthe number of pieces on the board, 
the maximum number you are allowed to remove, the 
number of pieces both you and the computer removed that 
turn and the graphic display of the checkerboard. 


The cornputer has been programmed not to play perfectly. 
Line 360 puts a random factor into the computer's moves. 
Without this tine, tt would be impossible to beat. 


Lines 120 to 210 print the board onto the screen. This is done 
by two loops using the values of A and B. Vanable Z is the 
number of pieces on the board. Z is modified by your input (C} 
inline 290 and by the computer’s move in line 390 (D}. Lines 
330 to 390 are the lines the computer uses to make its 
moves. 


l@ REM CHECKERBOARD NIM 
28 GOSUB 492 
38 S=2 
48 C=2 
38 2=20+RNDC 113 
66 F=2+RNDC3) 
7B DIMAC32Z) 
88 GOTO 412 
JB IF S=@ THEN PRINT@ 56, "PJECES ON BOAR 
D “32 
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146 [F S=@ THEN PRINT@ 34, “MAXIMUM NUMB 

ER TO REMOVE * $F 

114 IF ©>@ AND S=@ THEN PRINT@ 68, “YOU 

TOOK "sC3", I TOOK “5D 

128 FOR A=8 TO 3 

138 PRINT 

i4@ FOR B=@ TO 3 

158 PRINTTABCLIIJCHR® CAC 29+A-B*8) 1 ;CHREC 
128); 

16@ NEXT B 

178 PRINT 

i3@ FOR B=@ TO 3 

196 PRINT TABE1IICHR$C123) j|CHR¢CAC2Z5+A-B 

*8)); 

206 NEXT B 

216 NEXT A 

226 [F S=1 THEN PRINT@ 331 “TOU WIN* :GOTO 
738 

238 [F S=2 THEN PRINT@ 332, "1 HIN“ :GOTO 

73@ 

24@ [F S#@ THEN END 

258 PRINT 

266 PRINT@ 420, “HOW MANY WILL YOU TAKE" 
27@ I[NPLT C 

286 [F C<l OR CHF THEN GOTO 270 

298 #-2z-C 

306 [IF #20 THEN 338 

314 S=2 

328 [F S=2 THEN 418 

33@ D=2-1]-INTLC2Z-1I/CF +1) KCF 4d) 

348 IF B=@ AND NOT 2=] THEN D=RNDCF) 

35@ IF NOT D<2 THEN 348 


138 


368 


IF #<F4+2 AND RNOC4)=4 THEN D=D+RNDCZ2 


J-RNDC2) 


378 
3B 
398 
444 
41 
42 
438 
444 
45 
464 
470 
488 
498 
388 
314 
3248 
338 
344 
354 
3648 
378 
388 
398 
688 
628 
628 
638 
644 
654 
6648 


IF DOF THEN GOTO 336 

IF D=@ THEN D=] 

éz2-D 

IF #=@ THEN S=! 

FOR A=1 TO 2 

ACAIJ=94 

NEXT & 

FOR A=z%+) TO 32 
ACAIJ=143 

NEXT A 

CLS 

GOTO 36 

PELS 

PMODE },) 

SCREEN J,] 

FOR JJ=1 TO 268 STEP 28 
CIRCLEC JJ, 96375;58 

NEXT JJ 

SOUND 208,3 

FOR JJ=1 TO 268 STEP 20 
CIRCLEC JJ;43),2@ 

NEXT JJ 

SOUND 214,3 

FOR JJ=1 TQ 268 STEP 2G 
CIRCLECJI,144),20 

NEXT JJ 

SOUND 224;3 

FOR OO=) TO S@@:NEXT OD 
FOR #2=)] TO 16 

CLS RND( 3) 
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67@ PRINT@® 192,7AB(4) “HHHHHHHHHHHHHHHHH 

HHHHHHH" 

62@@ FOR OD=1 TO JS:NEAT 

69@ SOUND RNOC26)+175; 2 

@@ FOR OD=! TO J5:NEXT OOD 

21@ SOUND RNDC 2G) +175; } 

72@ FOR OD=! TO 3@:NEXT 

23@ PRINT@ 192, TABC4) "HHH CHECKERBOARD 
NIM ###" 

74@ FOR OD=! TO 2@:NEXT OO 

736 SOUND RNDC2@)+158,2 

76@ NEAT 22 

?7@ RETURN 

/3@ FOR SS-1]1@ TO 25@ STEP 1@ 

/39@ SOUND SS; 1 

844 NEXT SS 

@1@ FOR SS=24@ TO 1 STEP -1@ 

824 SOUND ss; 1 

@3@ NEXT SS 

@4@ FoR OD=! TO J@@@:NEXT OD 

@5@ CLS RNDC8) 

864 PRINT@ 192, “OO TOU WANT ANOTHER GAM 
E Cf/NI"; 

@7@ INPUT AS 

88G IF Ag$=""r" THEN RUN 10 

@9@ END 
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CHECKERS 


Here is a simple Checkers program which you will find quite 
entertaining to play, The game follows standard rules except 
that there is no penalty for failing to capture an opponent's 
piece. However the computer will try to jump one of your 
pieces whenever it can. 


Thecomputer is the red pieces atthe top of the board and you 
are the orange squares at the bottom. 


To move a piece just enter the location ofthe piece you wish 
to move beginning with the letter across the bottom of the 
screen then the number down the side, such as G9. Then 
enter the location of the square you wish to move fo in the 
same way. 


After you have jumped one of your opponent’s pieces the 
computer will ask you "JUMP AGAIN (¥/N}". If you wish to 
jump again, enter Y¥ then the new location. If you cant jump 
again enter N. 


The computer always has the first move. The number of 
pieces you have both captured is shown above the board. 
The game ends when one of you has lost all of your pieces, or 
the computer decides it is in a hopeless position and con- 
cedes the game. 


Strategy isn’t the computer's greatest virtue in this program 
but it will be very reluctant to move into danger and it will put 
up a spirited defence when under attack. Kings are created 
automatically and appear on the board as two smaller, 
diagonally joined squares of the appropriate colour. 


There is no mechanism in the program to prevent you from 
cheating but there is no point in doing so. Illegal moves 
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confuse the program and pieces moved illegally may tend to 
disappear. 


The subroutine starting at ine 970 uses LINE and PAINT to 
draw the checkerboard pattern on the screen at the startof 
the game. The routine starting at line 710 prints the board on 
the screen using PRINTS and CHR$) 


18 REN CHECKERS 

24 GOSUB 9374 

34 CLS 

48 PRINT@232,"PLEASE STAND BY" 

34 GOSUB 8848 

68 2=2¢ 

76 D8 

66 FOR G=69 TO 22:)F ALGIJ=-1 THEN ALGJ=- 
2 

38 NEXT 

148 GOSUB 714 

116 JF AC#2I]=9 OR ACZ1¢1 THEN 288 

128 IF 2426 AND AC2Z)=1 THEN ACZ)=2 

134 Y=! 

194 IF Al@+X(¥IJ1<@ AND ALZ+2¥CKXLTIII=8 T 
HEN B=xXLY) 

138 IF Al2)]=2 AND ALZ-XLY))<BAND ALZ-24xX 
(Y¥JJ=@ THEN O=-xXLY) 

168 IF O<?@ AND 2+2k0>23 THEN 238 

178 B= 

168 IF Y=2 THEN 288 

198 Y=2;:GOTO 1494 

208 ®=2+1 

218 IF 273 THEN 114 

226 IF QB=8 THEN 3248 
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236 ACZ+OI=G:ACZ+Z2K GISACZ) -ACZI=B 

246 2=2+240:CO=CO+) :GOSUB 718 

258 D=8:T=) 

266 IF ACZ+XCYII<G@ AND ACZ+2Z4ACKXCVIIIOG T 
HEN B=xXCY) 

270 IF O<?@ AND 2+240>223 THEN 236 

Z28@ IF Y=] THEN Y=2:GOTO 268 

239@ GOTO 454 

308 1i=8+0=6 

318 2=24+INTCRND(G 1449) :U=U+1 

326 IFCACZ3=9 OR ACZI=-1 OR ACZFI=-z2 OR A 
C23=6) AND U<14@@ THENZG 

338 Y#1 

4G IF ACZ+XCYII<>@ THEN 4868 

358 1F ACZ+XKCYII=@ AND ACZ+24XCTI 22-1) AN 
OD ACZ+24XCVI+)19—-1 AND ALZ+2Z4XCTIJ-1I)>~-1 

THEN GEXCY¥) 

36@ IF ACZ+KCYIJ=@ AND UP158@ THEN B=xXLT) 
370 IF ACZ}=2 AND ACZ-XCL¥II=B AND ALZ-24 
XCY¥IIJ>-1 AND ACZ-ZKCI+13>-1 THEN D=-XL 
Y) 

38@ IF Lo6GE AND ACZI=AZ AND ACZ-X(TII=B 

THEN Q=-XCYT) 

298 IF BO@ THEN 434 

40@ IF Y*! THEN Y=2:GOTO 358 

41@ IF U<1@@@ THEN 718 

4$2@ CLS:PRINT@230,"] CONCEDE THE GAME" :E 
ND 

430 ACZ+DI=ACZ):ACZI=B 

44@ GOSUB 71G 

45@ PRINT@398;" *:PRINT@3B8, "NM 
QUE FROM:" 5: [NPLUTAS:PRINT@404,"TO:"52INP 
UTBs 
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460 JF Uso" "THEN gs" 

47@ FOR W=] TO 2:2=@ 

480 IF W=1 THEN C4a=As 

49@ IF W=2 THEN C4=Bs 

SOQ 2=-24x(C$=*GS") 254a(CH="E9" J-264a( CH= 
"C39" )-27a(C$="AG" I-BOR(C$="HB" I-31 aCCH$=" 
Fg) 

51@ IF 20@ THEN 618 

$20 #=-324(CS$="08") BBACC$="88") BPa(CH= 
“67" J-38a(CO$="EP" )-39K(C$=" 07 "1 -40xa( 0 $=" 
AP") 

53@ ITF2#09@ THEN 618 

54@ 2=-43KCO$="*HE"J] 449kCC8="F 6") -45aC CH= 
"DS" 3-464 (0$="86")-. Sk CC$="G4"I-SIKCC$=" 
F4") 

55@ IF 2<>@ THEN 612 

380 2= S24a(L$#"C4")-S3K(C$="A4" J-SORCCS= 
"H3")] Decce="F3") SBe(Ce="D3" )-59eCCe=" 
B83") S63xa(C$="G62") 

S70 IF 26@ THEN 612 

S80 2--844(CS="E2"I-854a(C$="C2") S6aC(CH= 
“AZ" J-69REC$="H] "I-POACCH$=*"F 1") 

59@ IF #¢>@ THEN 618 

60@ 2@=-PIA(CH$="O1") P2aRCC$="8) ") 

610 J& W=l THEN D=2 

620 JF W=2 THEN E=2 

$30 NEXT: Ag=“* Bes"" :Ce=¥" 

64@ ACEI=ACOI :ACDI=@ 

65@ J& ABSCO-EJ}? THEN AC(D+EJ72)=@:HU=H 
U+] 

66@ GOSUB 718 
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676 IF ABS([O-EJ>? THEN PRINT@421,"JUNP A 
GAIN [Y/NI" 5: I] NPUTUS -PRINT@471, “ 
"TIF US$O"N" THEN 456 
686 IF HU<12 AND CO<12 THEN 66 
696 IF HU511 THEN CLS:PRINT@236, "YOU WIN 
" TEND 
766 JF CO?11 THEN 11286 
716 FOR MN=Z24 TO 72 
726 ACNI=-1J9IKCATMI=11-18S4 (ACN I=Z2)-207% 
FACNI=6)-2554 CACNI=-11-249K CACAI=-2)-GAal 
ACMI=9) 
738 NEXT 
746 PRINT@14, “SCORE" tPF RINT@36, “COMPUTER: 
“;CO:PRINTPS1; "HUMAN?" SHU 
726 PRINT@?6, "ASCDEFGH" 
766 T=-Z2:FOR K=6 TO 3:PRINT TABEI2ZI53:FOR 
J=8 TO 3 
776 PRINT CHR#(1278) ;CHRECAL7Z-J-13kKI I) i: 
NEXT :TeT¢]1 
786 PRINT INTCCJ+kI] ¢2)+T 
7398 FOR J=@ TO 3:PRINT TABCIZICHRs (Al GE- 
J-134K]) /CHRS (128); 
BAB NEXT: T=T+) 
B16 PRINT INTCOJ+KI72I+T 
BZ@ NEXT 
B36 PRINT TABC]2)"ABCOEFGH" 
B46 FOR MN=Z24 TO 72 
B56 A(MIJ=-CACNI=19)I-2kCACNI=185) +64 (ACA 
J=Z207)+0TACNI=255I)+2kCAENI=R249)-SKCACINI=AT 
j 
BBB NEXT 
B78 RETURN 
BBB DIN AC9S9I:X(1I=-6:X[2)=-7 
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896 FOR #=1 TO 99:A80#)=9:NEXT 

966 FOR z=! TO 32: READ B-READ C:ABI=C: 

NEXT 

918 OAT 2251571515781 1569; 1,6611,65; 5,6 
4,1,6311,;59;1,586,1,;57;4, 56, 1 

92@ OATA 53,4; 52;@) 5), 6; 56;8; 96;8;45; 8:4 
414; 43,8 

S38: OATA 46; <1) c3yp-1 8) Sli gf i-tassasilys 

2,-),3)],-],; 38,-),77,-1,26,-],25,-1,24,-] 

$4@ CO=@:HU=@ 

95@ SOUND 2468; 1 

964 CLS:RETURN 

9706 PCLS:PNOOEG; | :SCREENI; 1 

98@ LINEC84,0)-(84,192),PSET 

99@ LINE C! 22;6)-(€172,1923,PSET 

1466 LINE CG; 643-(€256,64),PSET 

1616 LINES, 126)-(C256, 1283, PSET 

1@26 PAINTC88,6),5,5:PAINT(88, 138),5,5:P 

AINT(G,1263,5,5:PAINT(176;,1263,5,5 

1438 CC=8 

14496 SS=RNO(S@)+15@:SOUND 55; 1:CC=CCe#l 
145@ IF Cfl=15 GOTO 1478 

1@6@ GOTO 1848 

1@7@ Cis 

1@8@ PRINT@ 164, TABCBI CHRE¢207) |; CHRE0) 

28) |CHRE¢( 207) ;CHR#C128) jCHRE¢0207)-:PRINT@ 
181, CHR#(2G7) jCHRE01 28) jCHR$( 267) | CHRE 
C1 282 5CHRS( 287) 

1@9@ PRINT@® 192, TAS(6) CHRE(128) ;CHREC2 

@7) ; CHR#01 28) SCHRS#C 207) jCHRE0128) 5" CHEC 

KERS “jCHR#C1 281; CHR $C 267) ;CHR¢(128) ;CHR 

$( 207) ;CHR#( 128) 
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}14@ PRINT@® 224, TAB(6) CHR (207) ;CHREC1 
28) SCHRS(207) SCHREL128) SCHRSECZ2B7):PRINT®& 
245, CHR C207) ;CHRE(128) SCHREC 287) SCHREO 
128) ;CHR¢C207) 

11146 FOR TT=1 TO 1@0@:NERXT-RETURN 

1126 AS=CHRS{175):Bs=" “*3Cs=" T:CLs 

113@ FOR C=2@@TO25@ STEPS:SOUNDC,1 ‘NEXT 

114@ PRINTBIS! , AS SBS, AF 

115@ PRINT#144, At [BS 5A SBS FAS GAS SCS SAS 

1160 PRINT@ 163, At CH SAS ICS SAS UC SAS SCS jA 


$78 SASF" "PASSES SAS 
117@ PRINT@195, A ;BS 3BSsASj" “SAST" “ GAS 
3" "JAS {IBS 78S 5AS 5 BS 5AS 58S 5AS 5" “SAS 


118@ PRINT#@227, A$; B* ,0% 3A 5 CH SAS 503 BS 5A 
# BS 5AS SCH SAS SAL 
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HAMADRYAD 


A hamadryad is a member of a class of nymphs in classical 
mythology, who inhabits a tree and dies with it. The garne 
named after this creature is a kind of mythological Checkers, 
demonstrating how the garne might have developed from 
different starting premises. 


Hamadryadis played on a nine by eight board. The computer 
is the V pieces at the top of the screen, and you are the + 
signs at the bottom. The hash signs (#} denote the black 
squares. 


The object of the game is to capture six of your opponent’s 
pieces. A piece Is captured by landing one of your own pieces 
on the same square, not by jumping over it as in Checkers. 
Pieces move diagonally, and may be moved both forwards 
and backwards. This feature has been added so that both 
you and the cornputer can retreat from danger when needed. 


The computer has the first move. It will then ask you “MOVE 
FROM SQUARE?”. You then enter the co-ordinates of the 
piece you wish to move, starting with the number down the 
side of the board, then a comma, followed by the nurnber at 
the bottom ofthe board. For example, if you wished to move 
the piece at the far right of your first row, you would type 6,8. 
After you've done this, the computer will ask “MOVE TO 
SQUARE?". Simply enter the co-ordinates of the square you 
wish to move to in exactly the same way. 


Hamadryad uses DATA statements to set up the board and 
playing pieces. This information is positioned on the screen 
by the PRINT@ in line 520. 


The variable CS is the computer's score, and HS is the 
human player's score. These are displayed on the screen by 
line 550. 
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Lines220and 230 use PRINT@ and several blank spaces to 
remove your previous moves from the screen, These blank 
spaces clear out the answers to the questions the computer 
asks you in lines 240 and 250. 


20 

38 

4 

38 

68 

7G 

a8 

98 

]@8 
118 
128 
138 
146 
1356 
168 
EXT 
1? 
188 
198 
288 
218 
END 
220 
238 
248 
2048 
268 
27@ 


CLS 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


"#1234S6789H" 
“LUSUHGHUHUT" 
“PHUHUHU HUH2* 
MSUHUH HUHUS" 
"aH # HUH H4° 
"SH #8 # 5° 
“BHtHtH+H+HE" 

“POtHtHtHTtH+?” 

“BHtHtHt+H+ HB” 

“412345678 9H 


DIMS$C1 2,133 

FOR A=) TO 16 

READ BS 

FOR B=) TO 11:5$(A,BIJ=MIDSCB$ 5B, 13:N 
B:NEXT A 

IF [NTCRNDOC@IJ+.53=@ THEN 198 
S$(S5555="U" S$(S;,27)=" " 


CLS 


GOSUB 524 
IF CS=6 THEN PRINT@ 1@, “i wind2t”: 


PRINT@ 433, " " 

PRINT@ 463, " " 

PRINT@ 416; “MOVE FROM SQUARE"; 
INPUT AB 

PRINT@ 448, "MOVE TO SQUARE"; 
INPUT C;D 
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289 


2399 
329 
319 
329 
339 
NG 
349 
339 
369 
379 
389 
399 
429 
419 
429 
439 
442 
452 
46a 
479 
489 
439 
3239 
319 
329 
=) 
330 
349 
959 
HS 
369 


1F ASS(A-CJ=) ANDO &48S(8-O0)=) THEN 32 


PRINT@ 19, “illegal move":GOTO 229 
JF S$CC+),G+13-"U" THEN HS=HS+) 
S$(A+],84#1)-" "sS$(C+),0+))="+" 
GOSU8529 

IF HS-6 THEN PRINT@ 10, “you wia"tE 


AG—-*+"360SU8B 419 

]F FL-1 THEN 370 

Ag="" "2G60SU8 419 

SS(&,F]-" ” 

JF S$CE+6,FeHJ="+" THEN CS-CS+] 
S$(E+G,F +H) ="U" 

6010 292 

E=277 -2 -6-@:H=0 

FL=9 

IF S$lE.,FJ<>"U" THEN 439 

IF S$CE*1,F+1)7=AS THEN G-] 2H=] 

IF S$ClE*1,F-1)=A$ THEN G=)] 2H--]) 
IF S$CE 1,F*#))]=AS THEN 6G--1 -H=] 
IF S$CE-1,F 1J-AS THEN G- 17H= } 
}F 64>9@ ANO HOO THEN FL-] 7RETURN 
E-E+): JF €9190 THEN E=2:F =F +] 

JF F911 THEN RETURN 

GOTO 429 

PLAT "“L8;A;O;85E"-PRINT@ 9, S#:FOR A 


TO 10:PRINT?FOR B=) TO 11 


PRINT TABLIA) S$lA,8); 
NEXT NEXT 
PRINT@ 384, “COMPUTER =>" 50S, "HUMAN:” 5 


RETURN 
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BRAIN TWISTERS: 


CUBIK’S RUBE 
MAGIC SQUARE 
CODE CRACKER 
HANGMAN 

CAT AND MOUSE 
REVERSE 

FLIP FLOP 
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CUBIK’S RUBE 


This program is a simple version of a cube puzzle. The 
computer will print up sixteen coloured blocks on a four by 
four grid. Four colours are used to show the blocks. At the 
beginning of the game the computer will show you how the 
grid shouldlook. Allblocks of the same colour will be grouped 
together to form a neat pattern. 


The computer will then ask you if you want the cornputer to 
randomly scrarnble the cube or if you wish to mix it up 
yourself. If you wish the computer to scrarnble the cube the 
routine in lines 490 to 590 makes 10 random moves of the 
cube. 


There are eight moves possible. Each of the four vertical 
columns and each of the four horizontal colurnns can be 
moved. Entering a number between one and four will cause 
the relevant Vertical line to scroll one space upward. A 
number between five and eight will cause the relevant line to 
rotate one space to the eft. 


After the cube has been scrarnbled you will be able to spend 
many frustrated hours trying to get it back into the correct 
order. You may change the colours of the blocks by altering 
the CHR$ values in lines 760 to 790. 


\@ REM CUBIKS RUBE 

2A PCLS 

3Q@ PMODE 1,1 

4@ SCREEN 1,1 

34 FOR X=! TO 256 STEP 40 
6@ FOR 2=1 TO 256 STEP 49 
fC INE tes 8) CesT a2) «PSE 
8Q NEAT: NEAT 
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934 FOR 22=1 TO S@@:NEXT 


1a@ 
11a 
12a 
134 
14@ 


FOR SS=2@4@ TO 29@ STEP 5 

SOUNO SS;1:NEAT 

FOR SS=#235 TO 200 STEP -5 

SOUND SS, 1 :NEXT:CLS RNDC8) 

PRINT@ 192, TABC9) "##### CUBIKS RUBE 


HHHHH" 


15@ 
164 
174 
18a 
194 
24a 
214 
224 
234 
244 
254 
264 
278 
284 
254 
3aa 
31a 
32a 
33a 
34a 
35a 
36a 
374 
38a 
394 
44a 


FOR OD=1 TO 5@@ +NEXT 
FOR T=2 TO 2@ STEP 2 
FOR SS=14@ TO 16@ STEP T 
SOUND 55; 1 

NEAT :NEXT 

F=1@00 
DIMAC9,4),604,4) 
FORK=1TO2 

FORY=1TOZ 

ACK, T1=] 

NEXT 

FOR ¥=3T 04 

ACK, YI=2 

NEATY 

NEATH 

FORK=3T04 

FOR Y=1TO2 

ACK, TI=2 

NE XT YT 

FOR Y= 2TO4 

ACK, TJ=4 

NEXT Y:NEAT 
GOSUBS 8a 
CLS:PRINT@160," " 
FORX=1T04 

PR INTTABC1 3) 
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41 
428 
436 
448 
458 
464 
47 
48 
498 
be 
318 
328 
338 
344 


FORY=1T04 

IF ACK, TJ =1C0SUB 768 
JFACK, YJ=2GOSUB 778 
IFAaCs, ¥)=3G0SUB78E 
IFACK, YI=4G0SLB798 
NEAT 

PRINT 

NE XT 

[F F=1@ THEN 6&8 

IF F<1@ THEN S38 

FOR G=1 TO S@G@-:NEXT G 
JF ES="N" THEN 668 
Fs="" 

PRINT@® 416, "DO YOU WANT THE CUBE SC 


RAMBLED CY/NI"3 7 INPUT ES 


354 
S68 
378 
388 
338 
aa 
618 
626 
638 
648 
654 
66a 


67a 
68a 
694 
74 


[F ES="N" THEN 688 
FOR F=I TO 18 
C=RNDCBI 

6070 698 

NEXT F 


PRINT@ 320, TABL$31 "aren" 
PRINT@ 352, TABCI3) “1234" 
PRINT@ 209, "<5" 

PRINT®@ 241, "<6" 

PRINT@ 273, "" 

PRINT@® 385, * <8" 

PRINT@ 416, " 

PRINT@® 416, “TWIST LINE" j:f1NPUT © 
SOUND 20G4,2 

JFC? 4G0TO8aa 

FORK=1TO3 
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718 
720 
730 
748 
758 
768 
778 
7 Be 
7398 
Bee 
B18 
B28 
B38 
B48 
BSe 
B6e 
B78 
B8e 
B98 
900 
918 
928 


ACK, CJ=BC X41, C0) 

NEXT X 

AC4,CJ=BC1,C) 

GOSLBB Be 

GOT 0388 

PRINTCHR#¢ 0159); *RETURN 
PRINTCHR$€255) ;?RETURN 
PRINTCHR#(€) 75) 3 -RETURN 
PRINTCHRS (14135 ‘RETURN 
D=(- 4 

FORA=1T03 

G=*+1 

ACD, XJ=B(D,G) 

NEXT #& 

ACO, 4$]=B(D, 1) 

GOSUBBE@ 

GOTOSBe 

FORX=1T04 

FORY=1T04 

BCX, YJ=ACX; TS 

NEXT NEXT 

RETURN 
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MAGIC SQUARE 


Magic Square is an exercise in mental arithmetic. The 
computer generates a three by three grid. Some ofthe grid 
positions are occupied by numbers, some are left blank. 


The computer challenges you to fill in the blank spaces with 
the correct numbers. The only clue you need is that the total 
of each column (horizontal and vertical) is the same. Nega- 
tive numbers and zero are legal. 


Numbers forthe gridare selected and assigned in lines 60 to 
260. Line 280 keeps arunningtotal of the number ofguesses 
you have had. This is done by incrementing variable J. Line 
270 performs this function. Lines 320 to 340 print the grid 
onto the screen using PRINT @ to keep the display static. 


14 OIMN ACS) 

24 01M B6C39) 

34 W=-39 

44 A=RNOCS) 

4 J=0 

64 B=RNOCS3 

78 C=RNOC93 

84 IF A=B OR A=B OR A=C OR BeC THEN GOTO 
64 

94 AC1)]=A+B 

148 AC2)J=A-CB+E) 

114 ACIIJ=A+t+C 

124 Al4)=A-B+C 

134 ACS5)=4 

1494 ACG) =A+B-C 

134 AC?) =A-C 

184 ACB) =A+B+C 

17@ ACS)=A-B 
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18a 
198 
28a 
218 
228 
238 
248 
Fas a 
268 
278 
28a 
29a 
3aa 
31a 
328 


35a 


FOR 2*1 T0 9 
BC2J=ACZ) 
NEXT 2 
K=ABSCAI 
BCKI=a 
K=ABS (B 
BCKI=a 
K=ABSCC) 
BEKI=a 

J=J+1 


CLS:PRINT@ @,"GUESS NO, "jJ 


PRINT 
PRINT 
FOR #@=]1 TO 9 


PRINT@® 137;BC12-:PRINT@® 143, B0C23:PRIN 
T@ 149,63) 
334 PRINT@® 28), 8°047-PRINT@® 207,B05}-PRIN 
T#@ 213, 8(6) 
34@ PRINT@ 265, 807) -PRINT@ 271 ,BC8)-2PRIN 
T#® 277,8093 


IF M=9 THEN 


LYEO IT" 


368 
378 
38a 
3924 
40a 
41a 
422 
4m 
444 
458 
462 


IF M=9 THEN 
PRINT@ 416; 
SOUNDI9@;2 
INPUT "WHAT 
=o 

FOR 2=1 TO 9 


PRINT@® 4)]6, "YOU HAVE SO 


48a 
“YOU HAVE" ;M3"*R TIGHT” 


NUMBER "3 U 


IF U=-99 THEN GOTO 448 
IF AtZIJ=U THEN BC2ZI=U 


IF BCZI09 T 
IF ACZI=A AN 
NEAF 2 


HEN f=f+1 
D t=@ THEN Matt+1 
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474 
$88 
$38 
388 
514 
52 
53@ 


60TO 276 

FOR S=2@ TO 226 STEP 28 
SOUND $,1 

NEXT 

FOR S=20@ TO 2@ STEP —-28 
SOUND $31 

NEXTSEND 
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CODE CRACKER 


Code Crackerwilltest your skills of deduction. The cornputer 
generates a four-digit code number using numbers from one 
to nine. Zero is not used and no number can be used twice, so 
numbers such as 7046 and 9922 will not occur. 


The computer will ask you to guess the code. You are 
required to enter a four-digit number. The computer will 
consider your guess than give you coded clues to its accu- 
racy. Black means you have correctly guessed a number and 
have it in the correct place. White means you have the 
number correct but in the wrong place. 


The computer gives you 15 guesses to get the sequence 
right. After 15 guesses it will tell you the correct answer. 


After you have had some practice at Code Cracker you may 
wish to increase the difficulty to make it alittle more challeng- 
ing. This is done quite simply. Just alter the value of C in line 
150. 


The computer uses lines 100 to 130 to generate its code 
number. Line 130 prevents the same number being picked 
twice. 


Line 140 combines the four numbers into a four digit number. 
That is it would make 1,2,3,4 become one thousand two 
hundred and thirty four. It then assigns this value to D. 


Line 170 accepts your number and assigns it to X. Lines 180 
to 210 reverse the process of line 140. Thatis it converts your 
input of one thousandtwo hundred and thirty four into 1,2,3,4. 
Line 220 then checks to see if D equals X, incase you have 
guessed the code number correctly. 
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Lines 230 to 350 check your numbers against the computer's 
code numbers and mcrements N (black) and W (white) 
accordingly. Line 410 then prints the results of your quess 
onte the screen. 


See if you can improve the nterestottheprintout by getting 
the computer to print out the appropriate number of black 
squares (CHR$(128)) and white squares (CHR(207)), 
instead of the rather bland statement currently provided, 


1@ REM COOE CRACKER 

22 GOSLUB 43392@ 

20 A= 

42 PRINT@ 192, TABLA] "KKKKKAKAKAKAKAAKARK 
X°iFOR C=I TO 5S@:NEXT C:CLS 

5S@ PRINT@ 192, ABC?) "*Ak CODE CRACKER * 
kK" SFOR C=) TO 10@:NEXT C:CLS 

6@ A=A+1 

7Q@ [F A-310 THEN 92 

Be GOTO 48 

38 CLS:GOSLB 480 

10@ FOR #=1 TO 4 

31@ ACZIJ=RNDCG) 

120 NEXT 2 

13@ JF Al1IJ=AC2) GOR AC1I=ACB) OR ACLI=AL 
4) OR AC2I=AC3) OR ALZI=AC4) OR ACBI=AC4 
1 GOTO 1@8 

240 O-1O@@kACLII+1@@4Al 2 J+1 OKALZI+tAC4I 
15@ FOR C=! TO 15 

162 PRINT "GUESS "35C 

178 INPUT X 

18@ BCLIJ-INT{X71 200) 

19@ BC23=INTCCX-7@@@kB01)3/100) 
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208 
2)@ 
220 
238 
248 
2548 
268 
278 
238 
298 
308 
316 
328 
338 
348 
356 
368 
378 
338 
336 
406 
416 
420 
438 


Bl3J=INTCCK- 1 GGG48 CC) 3-1 464802))718) 
@(4)=x-|1GGG*B 01 )-1 BB*BCZ)--1 GKBC 3) 
tF O=k THEN 458 

N=@:#=G 

FOR E=1 TO 4 

IF ACEJ<>BCE) THEN 286 

N=N+] 

ACEJ=@ 

NEXT E 

FOR F=) TO 4 

IF ACF I8@ THEN 350 

FOR E=) TO 4 

IF BCFI<>ACE) THEN 348 

W=W+ 1 

NEXT E 

NEXT F 

ALII=INTCO’) 608) 
ACZI=INTECD-1GGG4AC 1137189) 
AC3I=INTCCO-1GGG4AC 1 1-1 BB*AL2) 3718) 
AC4)=D-] BBGB*AE ) 3--1 BBKACZ)--1 B4ACB) 
PRINT “YOU SCORED"; 

PRINT N, “BLACKS AND" su 3“WHITES" 
NEXT C 

PRINT "MY NUMBER WAS “;4C1I3AC2Z) SACS 


1;4C4):GOSUB 436 


448 
450 
468 
974 
438 
EXT 
438 
EXT 


ENO 

PRINT “CONGRATULATIONS” 

PRINT “YOQU GOT IT IN "3C:GOSUB 484 
END 

FIR Tsz20@ TO 146 STEP -5:SOUNO T;1:N 


sFOR U=i TO 2BGG:NEXT: RETURN 


FOR Y=1 TO @:CLSC¥I:FOR V=l TO 260:N 
U:NEXT Y?RETURN 
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HANGMAN 


Hangman is a traditional word game which involves the 
guessing of letters in an unknown word. The computer 
selects a word from its DATA store (lines 320-400) and tells 
you how many letters the word contains. The computer will 
also tell you how many guesses it will allow you to have to 
discover the word. 








Hi 





After each guess the computer will either place a correctly 
guessed letter in its position in the word or place an incorrect 
guess in the INCORRECT LETTERS list at the bottom of the 
screen. For each incorrect guess the computer subtractsone 
from the number of guesses you have left. 


The program relies on a store of wordsin its DATA files. This 
program provides a list of 73 words. You can quite easily 
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increase the computers vocabulary by adding extra lines of 
DATA between lines 320 and 400. Just follow the format 
used in these lines. The only other change which needs to be 
made to the program isin line 30. The variable Z has to equal 
the number of words in the DATA store, Make Z equal the 
number of words in the store after you have made your 
addition s. 


Line 50 picks a number at random between one and Z. The 
program then reads the DATA store down to this number. For 
example if the random number was 45, the computer reads 
down to the 45th word, FOLLOW, this word then becomes 
the string A$. 


Line 90 works out the length of A$ and then line 110 converts 
the letters in the string to their ASC codes, MID$ is then 
used to check the contents of the string against the tetter 
guessed by the operator. Line 220 converts C$ the INPUT 
letter to its ASCAl code, Lines 230-240 check to see if C$ 
matches a letter in A$) if it doesn't find the INPUT letter, it 
places the letter in the INCORRECT LETTER line on the 
screen (line 460). The program then returns to line 210 for 
another INPUT. 


ifthe computer finds a correct letter itis placed in the correct 
position in the word and displayed on the screen (line 440), 
The program goes back to line 210 for the next INPUT. The 
iower case ietters in lines 270, 290 and 300 printin reverse on 
the screen. Line 490 plays an arpeggio at the finish of a 
game. 


1@ REM HANGMAN 

26 CLS 

3@ 2=73;:REMN Z= NUMBER OF WORDS 

4@ PRINT@ 4)7; “INCORRECT LETTERS" 
3@ FOR G=]1 30 RNOCZ) 

6@ READ AS 

7@ NEXT 
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82 Y=@:W-@ 

9@ N-LENCAt) 

1@@ FOR G-) TON 

11@ 8(G)=ASCCMIOSlA$,G, 11) 

12@ OC(G)]-8E6) 

13@ NEXT 

14@ Q-N:PRINT@ 38, "YOU HAVE" 305° GUESSE 
5° 

15@ FOR 4-1 TO O:Y-Ye) 

16@ GOSUSSBe 

1?@ 1F H-N THEN 2392 

18@ PRINT@ 262, ‘YOU HAVE'S Q+1 J37> GUESS 
ES:CERT” 

198 R-@ 

20@ SOUND 1528,5 

21@ PRINT@ 353, ° NEXT GUESS" ::?iNPUT Cs 
228 Fe=ASCCCS$) 

238 FOR G-) TON 

24@ 1F OLGI-F THEN GEGI-@:J-J-) 

2598 NEXT INEXT 

26@ GOSUS 362 

270 PRINT@ 4)7, “sorry time fs up the wo 
Fd was > 

282 PRINT AS:GOTO 492 

29@ PRINT@ 4)7, TASGLS) 3"well done” 

3@@ PRINT “vou guessed the word im “3¥ ) 
“‘60TO 438 

3!@ GOTO312 

322 DATA‘ TERROR“, “HORROR“, "POSTURE", “ELE 
PHANT", “ TRIUMPHANT’, "STATUS", "BACHELOR", 
“ANSWER” 
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334 DATA"TENOR", *FRANTIC", "TERRIER", "BAN 
ANA", "FIGURE", “1010T", "NARCOTIC", “PATHET 
TL as 

344 ODATA"WI2ARO", “L]@ARD"*, "WICKED", “W)2E 
NED", "EVIL", "WEEVIL", "WHEELS" ,"@L]22ARD" 
354 DATA"P ARTICLE", "ATOM", "ARTICLE", “ELE 
CTRON", "STARTED", "PARTEO", “FANI SHED", “EA 
GLE", "LEGAL™ 

3642 DATA'WATER" , WANTED", “WAITED” ,"HAITE 
R", "MINISTER", "SINISTER", °F IN] SHEO" 

3°@ R=H 

380 DATA"PERSONAL", “ASSUME”, "PROGRAM", *P 
OSTAGE", "FOLLOW", “WALLOW", "CHALICE", "MAL 
ICE", "SCHEME", *O] SASTER" , "REACH", “SEARCH 
yp EER 

394 DATA"POWER*S, "LOWER", "FLOWER", "QOUBLE 
", "TROUBLE", “LIGHSLY","PLIGHT", "FLIGHT", 
“SIGHTED”, “FOUGHT", "BOUGHT", "SOUGHT" ,"TR 
OQUGH" 

44@ DATA“ COUGH* . “SQUGH* , *“ORAUGHT", "CAUGH 
TY, "WELCOME", *CHECKED", "ASSIGN", “SHRUGGE 
0", "PATRONISE", “RECORD”, “DECOOE","HIOOLE 
~,; rf 1 ODLE” 

414 H-@ 

42@ FOR E=) TO N 

434 1F SCEIJ-DCE) THEN PRINT@ J38*E, " "4 
44@ 1F BLE) C20(E) THEN PRINT@ 138+&, CHR 
$€8CE)) }2H-R1) 

430 NEXT 
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46@ JF R=H THEN W=W41 :PRINT@4344+W, CHRELF 
1 

47@ 1F H49N THEN PRINT@ 199, “YOU HAVE" GH 
;' GORRECT* 

48@ RETURN 

490 PLAY *L4;T4;O2j;AjOS;LEjAICSE;JCIAZOSE 
(OB; ASE/OiL4jEjASOjLEjAIBsSEj;OjGjAI” 
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CAT AND MOUSE 


This is your big opportunity to be an ecologist. The game Cat 
and Mouse requires you to set up a population of cats and 
mice on 4 desert island in such 4 way that it becomes self- 
supporting. Too many cats and the mice won't be able to 
breed fast enough to feed them. Too many mice and they will 
overrun the island and crowd out the cats. 


The computer wil give you a month by month read-out of the 
island's population. Each time the program is RUN the 
number of mice required to feed each cat is selected ran- 
domly in line 80. 


The program also has a HIGH SCORE feature which will tell 
you, at the end of each game, your best effort so far. This of 
course returns to zero each time the program is RUN. 


Line 550 provides the screen background colour for each 
read out. Lines 120, 190 and 330 provide the sound effects. 
The extra spaces in lines 40, 240 and 490 (following “or’) are 
to space the PRINT statements neatly on the screen. 


The lower case letters in line 530 are achieved by using shift 
and zero together. This then prints on the screen in reverse. 


‘@ REM CAT AND MOUSE 

26 CLS 

38 PRINT "WELCOME TO CAT AND MOUSE" 

4@ PRINT “THE OBJECT OF THE GAME 1S TO 
CREATE A POPULATION OF CATS AND MICE W 

HICH WILL SURVIVE FOR AS LONG AS POSSIB 


LE ON A DESERT ISLAND" 

398 PRINT "PRESS ENTER TO CONTINUE" 
66 INPUT AS:IF AS=" " THEN 66 

786 HI=6 
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84 FO=RNDBC@) 

38: CLS 

144 PRINT “HOW MANY CATS WILL YOU START 
WITH C1-3937° 

114 INPUT CP-IF CP>99 THEN 114 

12@ SOUNO 144,1:SOUND 154, ':SOUND 14@)1 

13@ PRINT "CATS:" 

144 PRINT “POPULATION: "CP 

13@ CP=CP/3 

164 PRINT “HOW MANY MICE ARE ON THE [SLA 

ND: Cil<33 37" 

17@ [NPUT MP 

134 [F MP>99 THEN 174 

134 SOUND 144,1:°SOUND 154,1:S0UND 144,1 

204 PRINT “MICE?” 

214 PRINT *“POPULATI ON:* jMP 

224 FOR X=] TO 8@@-:NEAT X2CLS 


234 NP=MP/3 

244 PRINT “J AN GETTING YOUR CATS ANO M3 
TE PLEASE STAND BY* 

234 GOSUB 354 

264 DA=a 

2748 DAa=04A+) 

280 PRINT@ 224, “MONTR";0A: IF DA=1 THEN 
344 


294 PRINT@256;" " 

30a IF CRPONP-FO THEN CP=MP/F D0 

314 CP=ABSC(CP+ (8 4CP-CP SNP’ 3) SF 03) 

324 MP=ABSCMP+ CC 44MP-MPACPI A. G1 I} 

334 SQUNO 154,1:SOUND 144,1:SOUND 154, 1 
344 PRINT@ 234; I[NTOCPIi"CATS* 
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330 [F [NTCMPIJ=] THEN PRINTTABCIG) INTCMP 
J3;“MOUSE" :GOTO 444 

36@ PRINT TABCIGIINTCMPIS"NICE” 

37@ GASUB 35¢ 

38@ IF CPC2 OR MP<2 GOTO 440 

394 GOTO 276 

406 IF MP<2 ANDO CP*“2 GOSUB 336 ELSE GOTO 


420 
416 PRINT@® 224, “WE HAVE RUN OUT OF CATS 


AND MICE" -GOTOQ 468 
426 [F CP<2 AND MP>2 THEN GOSUB 33@ 
43@ PRINT@® 224, “WE HALE RUN OUT OF CATS 
“;60TO 466 
44@ [IF MP<2 AND CP>2 THEN GOSUB 55a 
434 PRINT@ 224, “WE HAVE RUN QUT OF MICE 


466 PRINT@ 236, “THE POPULATION OF CATS 

AND MICE SURUJVEO FOR "s0A3“NONTHS" 

a?@ JF OAOHS THEN HS-DA 

48@ FOR X=] TO 26@:NEAXT X:PRINT "THE LON 

GEST 30: FAR IS" i HS 

49@ PRINT “PRESS CY] FOR A NEW JSLAND OR 
CENTER) TO STOP" 


36@ [NPUT AS-IF AS=" " THEN 388 
S16 IF Ag="Y" GOTO 96 

32@ CLS 

338 PRINT@ 224, TABC]II)"s00dbyve" 
34@ END 


33@ FOR X=] TO 135@Q:NEXT X:CLS RNDI8) 
368 FOR X-] TO 266-NEXT XIRE TURN 


37Y@ PRINTRNDCG) :GOTO3S74 
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REVERSE 


In this program the computer displays the numbers from zero 
to nine in a random order. Your task is to unscramble the 
numbers and put them into the sequence 01234567 89 in 
as few moves as possible. This is done by either reversing 
the whole sequence or just a part of it. For example the 
computer generates 7354098621. It will then ask you 
“REVERSE No.?”. Entering 1 would reverse the entire 


Hi 





sequence to read 1268904537. Entering 5 would then 
reverse the numbers from the fifth number onwards. That is 
1268735409. The game finishes when you put the numbers 
into order from 0 to 9. 
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The program performs this clever little juggling trick by plac- 
ing the randomly selected numbers in a characterstring (A$). 
The number is sa@ected inline 50. Line 70 checks the number 
to makesure it hasn't been selected before and then places it 
in the string, 


The function CHA$ converts the number to its ASCIl code so 

that itcan be stored in astring. The program then uses MID$ 

to manipulate the numberswithin the string after each input. 

Lines 110 and 260 play alittle fanfare at suitable times during 

Hh game. Feel free 'o alter these lines to play any tune you 
ike, 


14 REM REVERSE 

2a CLS 

3Q M=1 :>X=9:Ag="" 

48 FOR 1=8 10 9 

5 L=RNOCIOI+4? 

62 O-1 

28 IF MOSCA$,G, LI=CHRS(LITHEN 52 
88 IFQ<T THEN G=G+1:G0I0 72 

30 AS=AS+CHRS{LI 


188 NEXT 

114 CLS RNDOC8) : SOUNODIi45@; 1-S50UND289, 1 :SOU 
NDi5a, 1 

128 PRINT@224, “HOVE NO." jA3S*+ “7 2PRINT 
AS 


138 PRINT* "3 PRINT@256;"REVERSE NUMBER " 
148 INPUT R-1F R<1 OR ROG THEN 148 

158 6s-** 

168 FOR T= 18 10 R STEP-1 

178 BS=AS+N IDSC AS, 7,1) 

198 NEXT 7 
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133 
248 
218 
228 
23a 
244 
2548 
264 


AS=LEFTSCAS, R-1 J+BS 

IF A$="G) 23456789" THEN 224 
M=+1:GOTO 318 

CLS3 

PRINT@192;TABC11I3A$ 

PRINT@ 224, TABCI@) “YOU DIO [T2g38" 
PRINT TABC8) “IT TOOK" 3M3;*MOVES* 
SOUNDS@, ) : SOUND 14@,; ]: SOUND) 5@, 1: SQUN 


D24@; ] -SQUND) 5@, ) -SOUNOIJ@@; ) : SOUNDSA;, } 
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FLIP FLOP 


Flip Flop is a simple little puzzle which can cause a great deal 
of thought and frustration. The computer places nine squares 
on a three by three grid. 





These squares are randomly coloured black or white. The 
object ofthe game isto finish with a white square in the centre 
(position 5) and black squares in the eight outside positions. 
This is achieved by ‘flipping’ black squares to make white 
squares. You are not allowed to flip over white squares. 


Just to make it more interesting, when you flip a corner 
square the computer flips the three adjoining squares. For 
example, if you flip square one, the computer will flip squares 
two, four and five as well. Flipping the square in the centre of 
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one of the four outside rows also flips the two squares next to 
it. Flipping the centre square results in squares two, four, six 
and eight flipping as well. 


The computer will ask you which square you wish to flip and 
will also keep @ running total of the number of moves you 
have made. When you get the squares in the correct order 
the computer will reward your patience with a little fanfare 
and a graphics display. (Lines 450 to 630) 


If you enter an illegal number (zero or anumber greater than 
nine) the whole display will scroll up the screen causing an 
unreadable scramble. Fear not it can be saved. Just hit the 
CLEAR key and then enter a legal number, the display will 
return. However, you will be penalised one move. 


In the program Lines 30—70 select the graphic characters for 
the beginning of the game. Line 300 sets Qas a black square 
(code 128}) and X as a white Square (code 207). Actually 207 
is the code for a BUFF square but it Shows up as white on the 
green background. Lines 50 and 60 randomly decide if a 
square is white or black. 


Lines 230—250 then uses CHR$ to print the squares on the 
screen. Note that in this lines PRINT @ is used. This to make 
sure that the squares remain in the same place and don't 
scroll up the screen after each input. 


Lines 300 to 380 set out the parameters of the game. After 
each input the computer checks through these lines to see 
which other squares it is required to flip, 


24 CLS 


38 M=@:9=128;:X=287 
48 FOR C=1 TO 9 
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5@ B=RND(2) 

Ba ACCIJ=8:°F B=) THEN ACCI=xX 

78 NEXT C 

88 GOSLUB 228 

38 N=8 

198 FOR C=1 10 3 

119 IF ACCI=X THEN N=Nt] 

128 NEXT C 

138 IF N=] AND ACSJ=K THEN 272 

148 N=n+] 

158 PRINT@ 33, “MOVE NUMBER "iM 

168 PRINT@ 448, “®HICH SQUARE TO MOVE "; 
170 INPUT AS:IF AS="* GOTO 178 

1B@ N=*UAL[TAS]>IF N<] OR N>S THENI7@ 
198 GOSLB 238 


288 GOTO 8&8 

218 END 

228 SOUND 288,1:FOR W=) TO 18:NEXT:SOUND 
288 52 

238 PRINT@ 164, *1 "3"2 “3"%3  “SCHRSTA 
C1335" “3;CHRSCTACZII 5° ~*~; CHRSCAT3I) 

240 PRINT@ 228, “4 “3"5 “3"6 “5CHRSTA 
($3) 3" “3;CHRSTACSII 3" “jCHRSCAEBI) 

258 FRINT@® 292, "P “;"B “3"S “35CHRSTA 
CFI" “SCHRSEACBII I" “;CHRSCTACSI) 

268 RETURN 


278 PRINT@$48; “YOU SOLVED IT IN “jf 
288 GOTO 458 
238 If ACNI=x% THEN RETURN 
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300 IF N=1 THEN FC? 9=2:FC2)=4 :F(3)=5:F C4 
J=)8 

3]0 JF N=2 THEN FC1J=) :FC2)=3 :FC3I=10:FC 
43=)8 

320 JF N=3 THEN FC1J=2:FC2)=5 FC 3)=6:F C4 
J=18 

330 JF N-4 THEN FC1)=):FC2)=7:FC3I=10:FC 
4)=10 

340 if N=5 THEN FC) J=2:FC2)=49:FC3I=8 :F C4 
J=6 

350 JF N=6 THEN FC1J=3:FC2)=9:FC3I=10°F C 
4j=)8 

360 if N=? THEN F(1J=4:FC2)=S:FC3)=8 :FC4 
J=10 


370 I& N=8 THENFC)IJ=7 °F (2)=9:FC33=10 
388 JF N=S THEN FC1)=8:F (2)=5:FC 31=6:F 04 
I=) 


398 FOR G=] TO 4 

4a JF ACFCGII-X THEN ACF CGII=O0:GOTO 420 
418 JF ACFCGIJ=Q THEN ACF CGIIJ=x 

428 NEXT G 

438 ACNJ=k 


448 RETURN 
458 SOUND 158, 3:FORY=) 30 2@:NEXT-SOUND 


108,3:FOR Y=1 TO 25-NEXRT 

460 SOUND 175, 3:?FOR Y=! TO 25:NEXT :SOUND 
138,18 

478 CLS RNOCSI-) 

488 A=RNOC32)-) 

498 B=RNOCI6)-3) 

5aa@ c=RNOCSI)-] 

518 GOSUB 5428 
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3920 GOTO 480 

593@ IF C=1 OR RNDC3I)=1 GOTO 398 
240 SETC31-A,16+B,C) 
p00 SETT3SI=A;15-8;C} 
368 SETC32+A;, 16+B,C) 
9370 SETCS2+A, 15-B,C) 
38@ RETURN 

998 RESETC31-A, 16+B) 
6@@ RESETC31—-A,15-B) 
61@ RESETC32+A, 16+B) 
62@ RESET(C32+A, 15-B) 
630 RETURN 
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APPENDIX: 
ERROR MESSAGES 


CODE EXPLANATION 


{0 
AQ 


BS 
CN 


DD 
DN 


DS 


FC 
FD 
FM 


ID 
IE 
10) 


LS 
NF 
NO 
OD 
OM 


an attempt was made to divide a number by O 
anattempt was made toopena filewhichwas already 
open 

subscript in an array was out of range 

can’t continue; appears after editing a line in a 
running program 

an attempt was made to redimension an array 
device number error, an incorrect number was used 
with OPEN, CLOSE or PRINT 

there is a direct statement in a data file could be 
caused by a missing line number 

an illegal function was used 

bad file data 

bad file mode occurs if an attempt 's made to INPUT 
into a file open for OUTPUT 

an illegal direct statement was used 

input past end of file 

input/output error possibly caused by trying to load 
from a bad tape 

a string is too long 

a NEXT has been used without a corresponding FOR 
file is not open 

out of data 

out of memory 
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OS 
OV 


RG 
SN 


ST 
™ 


UL 


out of string space; use CLEAR to reserve space 
overflow, a number is too big for the computer to 
handle 

a RETURN was used without a matching GOSUB 
syntax error caused by incorrect spelling of a com- 
mand, incorrect punctuation etc. 

string formula too long 

caused by assigning numeric datatoa string variable 
or vice versa 

undefined line; an attempt was made to call up a line 
number which does not exist. 


180 


A good computer program starts with one original idea, which 
is nurtured and allowed to grow in its own good time. 


From the moment the first keys are pressed on the Dragon 
32, to the time when the final program starts to roll off the 
printer, programmers often find they are undergoing a pro- 
cess of discovery. So it was with this book. Many times, the 
authors found the computer was bringing its own influence to 
bear, helping to shape programs into their final form. In many 
cases, they found the Dragon appeared to have as much to 
do with the creative process as the programmers did, as the 
screen format and extensive colour and sound facilities 
demanded to be used to the full. 


Robert Young, Roger Bush and Robert Shrimpton did not 
nurry this book. They wanted the programs to unfold, so they 
‘would be a true reflection of the capabilities of the Dragon 32. 
The extensive range of programs in this book suggests they 
approached the task in the right way. You're sure to have as 
much fun running and developing the games in this book as 
the two Roberts and Roger did when writing them. 


Another great book from 
INTERFACE PUBLICATIONS 


ISBN 0 907563 26 0 £4.95 ¥ | 
| 




















